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IDENTIFICATION 


PRODUCT CODE:  AC-9223D-MC 

PRODUCT NAME: CZRJJDO RPO4/5/6 FUNCTIONAL CONTROLLER TEST PART 11 
DATE CREATED: MAY, 1979 

MAINTAINER:. DIAGNOSTIC ENGINEERING 

AUTHOR: PETE BLACKSTONE 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE 

WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A 

COMMITTMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGi7!4t EOYIPMENT CORPORATION ASSUMES NC 

ov toth rgataabcly FOR ANY ERRORS THAT MAY APPEAR IN THIS 
NU . 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED 
TO THE PURCHASER UNDER A LICENSE FOR USE ON A SINGLE 
COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION OF 
DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN 
WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO 

RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 
COPYRIGHT (C) 1976,1979 DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION 


DIGITAL PDP UNIBUS MASSBUSS 
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ABSTRACT 


THIS DIAGNOSTIC TESTS THE DCL OF THE RPO4/5/6 DISK SUBSYSTEM 
WHEN CONNECTED TO EITHER AN RH11 OR RH70 CONTROLLER. 


1T USES THE DISK SURFACE AND THE DRIVE MECHANICS TO PROVE 

THE PROPER WORKING OF THE SUBSYSTEM. 11 DOES NOT NEED A 
FORMATTED DISK PACK. A DISK PACK WITH NO VITAL INFORMATION 
WRITTEN ON IT IS ESSENTIAL. AFTER A SUCCESSFUL RUN (WITH 

NC ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

DCL IN THE RPO4/5/6 SUBSYSTEM WORKS SUCCESSFULLY WHILE STANDING 
ALONE. SYSTEMS INTERACTION AND DRIVE TIMING IS LEFT 10 

OTHER DIAGNOSTICS. THIS 1S WITH THE ASSUMPTION THAT STATIC 1 
(DZRPS AND DZRPT ) HAS BEEN RUN SUCCESSFULLY. 


REQUIREMENTS 
EQUIPMENT 


PDP-11 COMPUTER WITH CONSOLE TELETYPE, AND A RPO4/5/6 DISK 
SYSTEM. THE RPO4/5/6 DISK SYSTEM WILL CONSIST OF AN RH11 
CONTROLLER, A DISK CONTROL LOGIC (DCL), A DEC 733 DISK 
DRIVE, AND ITS APPROPRIATE DISK PACK. THE DISK PACK NEED 
NOT BE FORMATTED. USED SECTION OF THE DISK SURFACE SHALL 
BE GOOD (HOLE FREE), THE SURFACE FOR THE FOLLOWING SECTORS 
MUST BE GOOD, THAT IS, FREE OF ANY HOLES OR SURFACE 
IRREGULARITY BEFORE ANY DATA ERROR CAN BE ATTRIBUTED 10 

HE LOGIC. 


CYLINDER 00, TRACK 00, SECTOR 00 
CYLINDER 00, TRACK 00, SECTOR 01 
CYLINDER 00, TRACK 18, SECTOR 21 
CYLINDER 01, TRACK 00, SECTOR 00 
CYLINDER 02, TRACK 00, SECTOR 00 
CYLINDER 03, TRACK 00, SECTOR 00 
CYLINDER 04, TRACK 00, SECTOR 00 
CYLINDER 05, TRACK 00, SECTOR 00 
CYLINDER 05, TRACK 07, SECTOR 04 
CYLINDER 06, TRACK 00, SECTOR 00 


CYLINDER 07. TRACK 00, SECTOR 00 

CYLINDER 08, TRACK 00, SECTOR 00 

CYLINDER 09, TRACK 18. SECTOR 21 

CYLINDER 410, TRACK 18, SECTOR 21 

STORAGE 

THIS PROGRAM REQUIRES 16K WORDS OF MEMORY 
PRELIMINARY PROGRAMS 


THIS PROGRAM ASSUMES THAT MAINDEC-11-DZRJG-(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 


17 ASSUMES THAT MAINDEC+11-DZRJH-(LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS. 
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AND IT ASSUMES THAT MAINDEC- 1 at (LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS 


LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
STARTING PROCEDURE 


SWITCH 12 MUST BE SET WHEN THIS PROGRAM 1S TO BE RUN USING AN 
RH70 CONTROLLER. IT CAN BE SET AT THE FRONT PANEL, OR IN THE 
SOFTWARE SWITCH REGISTER IF THE OPERATOR SO DERSIRES. SEE 
Seenat ian 5.1 FOR A DESCRIPTION OF SOFTWARE SWITCH REGISTER 


CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
STARTING ADDRESS 


START AT ADDRESS 200---FOR NORMAL RUN 
START AT ADDRESS 210---FOR UNIT SELECTION 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS ALL THE RPO4/5/6S ON THE SYSTEM WILL BE 

TESTED ONE AT A TIME BEFORE ‘’END PASS'’ 1S PRINTED OUT. 

TESTING WILL START WITH THE LOWEST UNIT NUMBER DRIVE 

THAT 1S POWERED UP (THAT IS THE LOWEST UNIT NUMBER RHAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT 1S POWERED UP. 


204 RESTART 

SAME AS 200 START, WITH THE FOLLOWING EXCEPTIONS: THE 
PROGRAM WILL INTERROGATE THE OPERATOR FOR THE NON-DEFAULT 
C.S.R. AND VECTOR ADDRESS FOR THE RHXX CONTROLLER. 

WHEN THESE QUESTIONS HAVE CORRECTLY BEEN ANSWERED, THE 
PROGRAM WILL AUTOMATICALLY RESTART FROM ADDRESS 200. 


210 START 
ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN. WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE WILL ASK FOR THE UNIT 


NUMBER TO BE TESTED. THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM, 


PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

2. SET STARTING ADDRESS ON THE SWITCH REGISTER 
3. PRESS "‘LOAD ADDRESS’. 
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4. SET “OPERATIONAL SWITCH SETTINGS’ (SEE SECTION 5.1) 
WORST CASE IS ALL SWITCHES DOWN. 


5. PRESS ‘’START’’. 


6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 
ON THE DRIVES PRESENT OR DRIVE SELECTED BEFORE ‘END 
PASS'' 1S PRINTED. THE FIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION IF THE PROGRAM IS NOT RUN UNDER AN ‘'ACT-11"" 
MONITOR. THE SECOND AND SUBSEQUENT PASSES WILL EXECUTE 
EACH TEST FOUR TIMES ON EACH DRIVES PRESENT OR DRIVE 
SELECTED BEFORE "END PASS'' 1S PRINTED. THE SECOND 
AND SUBSEQUENT PASSED DO NOT NEED ANY OPERATOR INTERVENTION. 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1. E. 

AN 11/34) IT WILL DETERMINE THAT A HARDWARE SWITCH REGISTER 

1S NOT PRESENT, AND WILL USE A ‘’SOFTWARE'' SWITCH REGISTER. 

THE SETTINGS OF THE ‘SOF TWARE'’ SWITCHES ARE CONTROLLED 

THROUGH A KEYBOARD ROUTINE WHICH IS CALED BY TYPING A 

"CONTROL G'. THE PROGRAM WILL RECOGNIZE A ‘CONTROL G* AT ANY 
TIME EXCEPT WHEN IT IS AT A HIGHER PRIORITY PROCESSING AN 
RP04/5/6 INTERRUPT. THE ‘SOFTWARE’ SWITCH VALUES ARE ENTERED AS 
AN OCTAL NUMBER IN RESPONSE TO PROMPTING FROM THE SWITCH 

ENTRY ROUTINE: 


"SWR = NNNNNN NEW =' 


EACH TIME SWITCH SETTINGS ARE ENTERED, THE ENTIRE SWITCH 
REGISTER IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT 
REQUIRED. ‘RUBOUT' AND ‘CONTROL U* FUNCTIONS MAY BE USED TO 
CORRECT TYPING ERRORS DURING SWITCH ENTRY. 


ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE #SOFTWARE"’ 
SWITCH REGISTER MAY ALSO BE USED. IF THE PROGRAM FINDS ALL 
16 SWITCHES IN THE ‘UP’ POSITION WHEN IT IS STARTED, ALL 
SWITCH REGISTER REFERENCES WILL BE TO THE ‘SOFTWARE’ REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 


SWITCH DEFINITIONS ARE GIVEN IN SECTION 9 ‘‘OPERATIONAL 
men SETTINGS’ HOWEVER THE DETAIL DESCRIPTION ARE GIVEN 
HERE. 


SWITCH 15 = HALT ON ERROR 

WHEN THIS SWITCH IS SET, If THE PROGRAM FINDS AN ERROR 
THEN THE APPROPIATE INFORMATION WILL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THIS HALT, PRESSING 
CONTINUE’ WILL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR IS FOUND WHEN THE SAME THING WILL HAPPEN, 


SWITCH 14 = LOOP ON TEST 
WHEN THIS SWITCH IS SET THE PROGRAM WILi BEGIN TO LOOP 
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ON THE CURRENT TEST BEING EXECUTED. FOR EXAMPLE IF THIS 
SWITCH 1S SET WHEN THE PROGRAM IS IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 10 REPEATEDLY. 
ONE WAY TO BE SURE THAT THE PROGRAM IS IN THE EXPECTED 
TEST 1S TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM HALT. 


SWITCH 13 = INHIBIT ERROR TYPEOUTS 

WHEN THIS SWITCH IS SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH AS ‘'STOP DRIVE Xx’’ 
WILL CONTINUE. AT THE END OF PASS ‘TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE X"’ WILL BE TRUE, THAT 1S, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY SO. 


SWITCH 12 = RH70 CONTROLLER SELECT 

THIS SWITCH MUST BE SET AT THE START OF THE PROGRAM WHEN THE 
DISK DRIVES TO TESTED ARE CONNECTED TO AN RH70 CONTROLLER. 
1T MUST NOT BE SET WHEN DISK DRIVES TO BE TESTED ARE 
CONNECTED TO AN RH11 CONTROLLER. 


SWITCH 11 = INHIBIT ITERATIONS 
WHEN THIS SWITCH°1S SET THE PROGRAM ON SECOND PASS WILL 
at hy EACH TEST FOUR TIMES BUT WILL DO EACH TEST 

N NLY. 


SWITCH 10 - BELL ON ERROR 

WHEN THIS SWITCH IS SET, IF THE PROGRAM FINDS AN ERROR 

THE “‘BELL’’ OR ‘‘ALARM'’ WILL BE SOUNDED. THIS SWITCH IS USEFUL 
WHEN SWITCH 11 1S SET YET INFORMATION IS NEEDED WHEN ANY ERROR 

1S DETECTED. TAKE THE EXAMPLE OF A PROGRAM LOOPING ON A TEST WITH 
SWITCH 11 SET TO HELP SCOPING. THEN IF THIS SWITCH IS 

SET AND THE BELL OR ALARM SOUNDS IT MEANS THAT THE ERROR 

1S PRESENT BUT IF THE BELL OR ALARM STOPS IT MEANS THAT 

THE ERROR IS NOT PRESENT. 


SWITCH 9 = LOOP ON ERROR 

WHEN THIS SWITCH 1S SET, IF THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED ‘’SCOPE'’ STATEMENT. IF ON THE SECOND TIME 

THROUGH AN ERROR IS FOUND IT WILL AGAIN LOOP BACK TO 

THAT "'SCOPE'’ STATEMENT. THIS LOOPING WILL CONTINUE AS LONG 
AS THE ERRCR IS PRESENT AND THIS SWITCH 1S SET. HOWEVER 

IF THE ERROR JS NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM. EACH TIME THE ERROR 

1S ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 11 

1S ALSO SET. DURING BEGUG, USING A SCOPE, IT 1S RECOMMENDED 
THAT SWITCH 11 IS ALSO SET. 


NOTE: SEE SECTION 8.3 


SEQ 0006 
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SWITCH 8 = LOOP ON TEST IN SWR <7:0> 

THIS 1S A SPECIAL SWITCH. WHEN SET SWITCHES 0 THRU 7 
HAVE ONE MEANING AND WHEN RESET SWITCHES 0 THRU 7 HAVE 
ANOTHER MEANING. THIS MEANS THAT ANY SETTING OF SWITCH 

QO THRU 7 MUST BE DONE WITH SWITCH 8 IN THE APPROPIATE 
POSITION. WHEN THIS SWITCH IS SET THEN SWITCHES 0 THRU 

7 GIVE THE TEST NUMBER TO BE LOOPED ON. FOR EXAMPLE 

WITH SWITCH 8 SET AND SWITCH 3 SET THE PROGRAM WILL LOOP 
ON TEST 10. HOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THE TESTS FROM 1 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN. WHEN THIS SWITCH 1S NOT SET THEN SWITCHES 
0 THRU 7? HAVE THE MEAING ITS NAME INDICATES. 

FOR EXAMPLE SWITCH 7 1S ‘STOP FURTHER COMPARES: THAT IS 
1f SWITCH 8 1S NOT SET AND SWITCH 7 IS SET THEN WHEN A 
DATA ERROR IS DETECTED NO FURTHER COMPARES WILL BE DONE. 
FOR EXAMPLE IN A 256 WORD BUFFER IF ALL THE WORDS ARE IN 
ERROR THEN AFTER SEEING THE PRINTOUT FOR THE FIRST FEW 
WORDS SETTING SWITCH 7 ONLY WILL STOP FURTHER PRINTOUTS 
OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS. HOWEVER IF THIS WAS DONE WITH SWITCH 1! 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A_SUB- 
SEQUENT TEST WILL ALSO BE LOST. BUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT. ANOTHER 
EXAMPLE OF SWITCH 8 BEING LOW 1S WITH SWITCH 6, WHICH 

1S “ECC TEST-COMPARE END RESULT ONLY’. THAT IS IF SWITCH 
8 1S NOT SET AND SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
120 THRU TEST 134) INSTEAD OF COMPARING CONTENTS OF THE 
POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 
COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 


NOTE: SEE SECTION 8.3 


SWITCH 7 = STOP FURTHER COMPARES IF SWO8 IS LOW. 

IF SWITCH 8 IS SET AND THIS SWITCH IS ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS NOT SET 

AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO AS THE 

NAME INDICATES. FOR EXAMPLE IN A 256 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN AFTER SEEING THE ERROR PRINTOUTS 
FOR THE FIRST FEW WORDS THEN SETTING SWITCH 7 WITH SWITCH 8 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST. JT IS EXPECTED THAT SWITCH 7 AFTER BEING SET FOR 

A WHILE TO STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER DATA ERRORS. 


SWITCH 6 - TYPE ALL REGISTERS WITH ERROR IF SwO8 IS LOW 
IF SWITCH 8 IS SET AND THIS SWITCH 1S ALSO SET THEN 

THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS 
INDICATED IN THE DESCRIPTION OF SWITCH 8. IF SWITCH 8 IS 
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5.2 


6.0 


6.1 


7.0 


NOT SET AND THIS SWITCH IS SET THEN THE PROGRAM WILL DO 

AS THE NAME INDICATES. THAT 1S ON FINDING AN ERROR INSTEAD 
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS 

AS WILL BE DONE IF SWITCH 11 1S NOT SET BUT WILL ALSO 

GIVE ALL THE REGISTER CONTENTS (EXCEPT ‘DATA BUFFER’ RHDB). 


SUB-ROUTINE ABSTRACTS 
SEE SECTIGN 9 ‘"SUBROUTINES". 
ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT INFORMATION CONCERNING THE PARTICULAR FAILURE. 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RP04/5/6 
REGISTERS OR GOOD/RECEIVED DATA. If THE ERROR OCCURRED IN A 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL IS ALSO 
GIVEN. REFER TO THE PROGRAM LISTING AT THE STATED 

ADDRESS TO DETERMINE THE CAUSE OF THE ERROR. 


"FATAL ERRORS 


IN THE EVENT THAT THE DISK DRIVE ECOMES UNAVAILABLE TO THE 
CONTROLLER, POWERS DOWN, OR CERTAIN CRITICAL STATUS BITS 
CANOT BE CLEARED PRIOR TO THE START OF ATEST SEQUENCE - THIS 
INFORMATION WILL BE COMMUNICATED TO THE OPERATOR. IN 
ADDITION, THE TTY BELL WILL RING AND THE PROGRAM WILL HALT. 
1T 1S SUGGESTED THAT IF THIS HAPPENS, THE OPERATOR LOAD 
ADDRESS 200 (210) AND RESTART THE PROGRAM AS A FIRST ATTEMPT 
TO SOLVE THE PROBLEM. IF THE FILURE CONTINUES TO OCCUR, 
THERE ARE TWO OPTIONS FOR THE OPERATOR: 


1. LOOK IN THE TEST LISTING FOR THE ‘HALT’ 
INSTRUCTION AND REPLACE IT, PLUS THE TWO WORDS 
(‘TYPE ,CPHALT'') ABOVE WITH ‘NOP'S. WITH TTY ERROR 
PRINTOUTS INHIBITED, A SCOPE LOOP CAN BE INITIATED 
FOR THE TEST IN QUESTION. 


2. GO BACK AND RERUN THE DZRPS DIAGNOSTIC AS IT IS 
QUITE POSSIBLE THAT A HARD FAILURE HAS OCCURRED IN 
ONE OF THE HARDWARE REGISTERS. 


17 1S ALSO POSSIBLE TO CONTINUE FROM THE ‘HALT’ POINT, BUT 
THIS 1S NOT RECOMMENDED AS ALL FOLLOWING TESTS WILL EXHIBIT 
THE SAME SYMPTOMS AND GIVE MISLEADING ERROR PRINTOUTS. 


RESTRICTIONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST HAVE THE 
DRIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT B BUT 
MUST NEVER LEAVE IT IN THE PROGRAMMABLE STATE. 


SWITCH 12 MUST BE SET WHEN RUNNING ON AN RH70 CONTROLLER AND 
1T MUST NOT BE SET WHEN RUNNING ON AN RH11 CONTROLLER. 

BECAUSE OF THE REQUIREMENT FOR 11 TO BE SET WHEN USING AN 
RH70, THE PROGRAM CANNOT BE RUN IN CHAIN MODE WHEN USING THE 
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8.2 


8.3 


9.0 
9.1 


SOFTWARE REGISTER FEATURE WHILE RUNNING ON AN RH70. THIS IS 
BECAUSE THE ROUTINE WHICH GETS SOFTWARE SWITCH SETTINGS IS 
NOT OPERABLE WHEN IN CHAIN MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 20 
SECONDS. SUBSEQUENT PASSES WILL TAKE 
60 SECONDS . 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 
OPERATOR SELECTABLE SCOPE LOOPS 


HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
FOR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT “C 
ANY TIME WHILE THE PROGRAM 1S RUNNING. ON HITTING AN ERROR 

1F THE LOOP ON ERROR SWITCH IS SET, THE PROGRAM GOES BACK - 
USUALLY BACK TO THE BEGINNING OF THE TEST. 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
THE PROGRAM GOES BACK TO CAN BE CHANGED. 

THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 

1. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2. LOOP ON ERROR SWITCH MUST BE SET 

3. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

IF THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
TEST SWITCH IS SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION. 


AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 

LOGIC DIVISION IN HARDWARE MODULES 

REGISTER BOARD (RG) - ERROR REGISTER 1 STATUS REGISTERS 
MUX FOR REGISTERS GO HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH. COMMANDS 


SYNC. DATA BOARD (SN) = DATA CONTROL PARALLEL TO SERIAL 
SYNC. BYTE DETECT. 


SEEK AND SEARCH (SS) = SEEK LOGIC SEARCH LOGIC HEADER 


SEQ 0009 
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08:52 SEQ 0010 


HANDLING. 


ERROR CORRECTION (EC) = ECC LOGIC ERROR REGISTER 2 & 3 
MUX FOR ERROR REG. 2 & 3 LOOK AHEAD 
REG. SECTOR COUNTER DATA FORMATION 
RING COUNTER. 


DUAL PORT (DP) = DUAL PORT ARBITRATION ATTENTION LOG 
otate REGISTER MASS BUS REGISTE 


Ic 
R 
DISK SURFACE USAGE 


SYMBOLS USED 
C = CYLINDER 


n-4 
nuuk 
4) 
mn m 
ao 
“~ 
oO 
@ 


READ 
T = TEST NUMBER 
0, 10, SO 
T22-W,R, TI23-R, TI24-W,R, TI25-W,R, TT26-W,R, TT35-W,R, TE37-W, TT50-W, TTS1-WLR, TIS2-W,R, TT55-WR 
» 10, $1 
27-W,R, TI37“W,R, TI40-R, TT4!-W,R, T142-W,R, T143-W,R 


. 118, $21 
30-W, TT31-W,R 


eT a | ee, | le) 
-—-oOo —2oO 


(5, 10, SO 
TT31-W,R 
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CS, 17, $4 
T1$3-W.R, 1134-W,R 
C5, 118, $21 
TT31- 

C6, 10, $0 
TT31-W.R 

Co, 118, $21 
TT31-w 

C7, 10, $0 
TT31-W.R 


C7, 118, S18 
T131-W 


C8, 10, SO 
TT31-W,R 


C8, 118, S21 
T131-W 


C9, T0, SO 
TT31-W 


C9, 118, $21 
TT31-wW, TT32-R 


C10, 10, SO 
TT31-W,R 


C410, 118, S21 
TT36-W,R, TT50-W,R 


THE FOLLOWING SECTION DESCRIBES EACH TEST AND SUBROUTINES 
IN DETAIL AND CAN BE USED AS AN INDEX TO THE LISTING. 

THE LEFT MOST COLUMN IS THE LINE NUMBER WITHIN THE LISTING 
WHERE THAT ITEM WILL BE FOUND. 


SEQ 0011 
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«TITLE CZRJJDO, RPO4/5/6 FCTNL CTRLR2 
s*COPYRIGHT (C) 1976,1978 

:*DIGITAL EQUIPMENT CORP. 

ESTATES MASS. 01754 


:*PROGRAM BY PETE BLACKSTONE 


eTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977. 


-* 
’ 


STONSTOENS ONSEN SENS ON SENS OEN SONS SONS SONS SONS SONS SONS JONSSON SON ON: 
STENT ONST ONS SONS TONS JONSON PONS ON ESN JOM JONSON JONSSON JONSON ON: 
SPENT ONS ONS ONS ON ON ON JON SN JON JONSON SONS SONS ONS JONSON ON: 


;DRIVE MUST BE LOCKED ON PORT A OR PORT B 


SNM NO NO Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Ne Ne 
SAN Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nese 
SNM NO Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Ne Nes Ne Nes Nes \e 


st INTERNAL PROGRAM MACROS BEGIN HERE 


seereerreerererereerereeeeeeeeee Nee 


peeeaneeeeereertertreeteteeree terre eee Kee AAA A EAA 


:+NOTE: ALL MACRO CALLS BEGINNING WITH ‘’.$'* ARE SUPPLIED FROM AN 
EXTERNAL SYSMAC.SML PACKAGE WHICH MUST BE MADE AVAILABLE 
;@ TO THE SOURCE PROGRAM AT ASSEMBLY TIME. 


Be Se Se oe 
= 


. s seneeeeeereencerecereeeeerseeteesrereneeeereeeeceeernenecccerne 


- SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


15 HALT ON ERROR 

14 LOOP ON TEST 

13 INHIBIT ERROR TYPEQUTS 
12 RH70 CONTROLLER SELECT 
11 INHIBIT ITERATIONS 

10 BELL ON ERROR 

9 LOOP ON ERROR 


SEQ 0012 
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OPERATIONAL SWITCH SETTINGS 


ha 8 LOOP ON TEST IN SWR<7:0> 
si 7 STOP FURTHER COMPARES IF SWO8 IS LOW 
ze 6 TYPE ALL REG. WITH ERROR IF SW8 LOW 


SEQ 0013 
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001000 


000011 


000007 


000000 


000340 


100000 


000004 





BASIC DEFINITIONS SEQ 0014 

-SBTTL BASIC DEFINITIONS 

;tINITIAL ADDRESS OF THE STACK POINTER *#* 1000 *e¢ 
K= 1000 


STACK= 
-EQUIV EMT, ERROR 3; BASIC DEFINITION OF ERROR CALL 
-EQUIV. I1OT, SCOPE ;;BASIC DEFINITION OF SCOPE CALL 
Sa yaalcates “pai DEFINITIONS 
HT= 11 ;;CODE FOR HORIZONTAL TAB 
LF= 12 ;; CODE FOR LINE FEED 
CR= 15 >: CODE FOR CARRIAGE RETURN 
CRLF= 200 ;;CODE FOR CARRIAGE RETURN-L!NE FEED 
PS= 177776 PROCESSOR STATUS WORD 
-EQUIV PS,PSW 
STKLMT= 177774 7: STACK LIMIT REGISTER 
PIRQ= 177772 : PROGRAM INTERRUPT REQUEST REGISTER 
DSWR= 177570 ; HARDWARE SWITCH REGISTER 
DDISP= 177570 s HARDWARE DISPLAY REGISTER 
5 *GENERAL PURPOSE REGISTER DEFINITIONS 
RO= 20 7 ;GENERAL REGISTER 
R1= %1 7; GENERAL REGISTER 
R2= %2 ;;GENERAL REGISTER 
R3= 23 3;GENERAL REGISTER 
R4= 24 7 ;GENERAL REGISTER 
R5= x5 7 ;GENERAL REGISTER 
R6= %6 7 ;GENERAL REGISTER 
R7= x7 >; GENERAL REGISTER 
SP= %6 :;STACK POINTER 
PC= %7 :;PROGRAM COUNTER 
:*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ::PRIORITY LEVEL 0 t 
PR1= 40 > PRIORITY LEVEL 1 
PR2= 100 s:;PRIORITY LEVEL 2 
PR3= 140 s:PRIORITY LEVEL 3 
PR4= 200 s PRIORITY LEVEL 4 
PR5= 240 s PRIORITY LEVEL 5 : 
PR6= 300 s PRIORITY LEVEL 6 
PR7= 340 ::PRIORITY LEVEL 7 ‘ 


SwWi3= 20000 
SWi2= 10000 
SWI1= 4000 
$wi0= 2000 
$wO9= 1000 
SwO8= 400 
$wO7= 200 
SwO6= 100 
SwO5= 40 
$WO04= 20 
SwO3= 10 
SWO2= 4 
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718 000002 SwOl= 2 
719 000001 swoo= 1 
720 -EQUIV SWO9,SW9 
721 -EQUIV SW08,SW8 
722 EQUIV SW07,SW7 
723 EQUIV SW06,SW6 
724 EQUIV SWO5,SW5 
725 EQUIV SW04,SW4 
726 EQUIV SwO3,SW3 
727 EQUIV SWO02,SW2 
728 -EQUIV SWO1,SW1 
ie -EQUIV Sw00,SWO 
731 ;*DATA BIT DEFINITIONS (B1T00 TO B1T15) 
732 100000 B1T15= 100000 
735 040000 B1T14= 40000 
734 020000 B1T13= 20000 
735 010000 BiT12= 10000 
736 004000 BIT11= 4000 
737 002000 B1T10= 2000 
738 001000 B1T09= 1000 
739 000400 B1T08= 400 
740 000200 B1T07= 200 
741 000100 B1T06= 100 
742 000040 BIT05= 40 
743 000020 B1104= 20 
744 000010 B1T03= 10 
745 000004 BIT02= 4 
746 000002 BITO1= 2 
747 000001 BIT00= 1 
748 -EQUIV B1109,B119 
749 -EQUIV 81108,B8118 
750 -EQUIV 81107,B117 
751 -EQUIV 81106,B116 
752 -EQUIV B1105,B115 
753 -EQUIV B1T04,B114 
754 -EQUIV B1T03,B113 
755 -EQUIV B1102,B1T2 
756 ' -EQUIV) 81101,B1T1 e 
ed “EQUIV B1T00,B1T0 
759 ;*BASIC “'CPU'’ TRAP VECTOR ADDRESSES 
760 000004 ERRVEC= 4 ;TIME OUT AND OTHER ERRORS 
761 000010 RESVEC= 10 i RESERVED AND ILLEGAL INSTRUCTIONS 
762 000014 TBITVEC=14 BIT 
763 000014 TRIVEC= 14 :LTRACE TRAP 
764 000014 BPTVEC= 14 ;BREAKPOINT TRAP (BPT) 
765 000020 1OTVEC= 20 i INPUT/OUTPUT TRAP (101) **SCOPE®® 
766 000024 PWRVEC= 24 ;;POWER FAIL 
767 000030 EMTVEC= 30 ; EMULATOR TRAP (EMT) **ERROR*® 
768 000034 TRAPVEC=34 37 ''TRAP’’ TRAP 
769 000060 TKVEC= 60 i; 1TY KEYBOARD VECTOR ; 
770 000064 TPVEC= 64 3: TTY PRINTER VECTOR 
771 000240 PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 
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773 
774 
775 000000 
776 
777 
778 
779 000174 
780 000174 000000 
781 000176 000000 
782 
783 
784 
785 
786 
787 000200 
788 000046 
789 000046 033104 
790 000052 
791 000052 020000 
792 000200 
793 
794 
795 
796 000200 
797 000200 000137 
798 000204 000137 
799 000210 000137 
800 000220 
801 000220 000137 
802 
805 
804 
805 
806 
807 
808 
809 


LR 
08:52 


004712 
035460 
004676 


004662 


TRAP CATCHER 
-SBTTL TRAP CATCHER 


D 2 
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-=0 
;*ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘’.#2,HALT" 
;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRU UPTS 
; *LOCATION  casececen: 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 


SWREG: .WORD 
-SBTTL ACT11 HOOKS 


;; SOFTWARE DISPLAY REGISTER 
7;SOFTWARE SWITCH REGISTER 


spekeeeeeenteerteeeeeererereteeetereeteeKareeeKeeAeeneeeeeeereAes 


HOOKS REQUIRED BY ACTI1 

“wORD 20000 
$SVPC 

\SBTTL STARTING ADDRESS 


RA: JMP a#BEGIN 
ADDMOD: JMP a#BASECH 
JMP aeBEGINZ 


JMP a*BEGINI 


;SAVE PC 
3:1)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 


332)SET Bots * TO 20000 
3; RESTORE P 


;NORMAL START 
;GET DEVICE PARAMETERS 
; JUMP TO SELECT DRIVE START 


; JUMP TO NO OPERATOR TESTS START 


:*STARTING ADDRESS 200 FOR NORMAL STARTS 
seTHls WILL TEST ALL RPO4'S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


{+ STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 
S eSTARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 


;*AT THE DRIVE 
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a3 -SBTTL MEMORY MANAGEMENT DEFINITIONS 

ae ;*KT11 VECTOR ADDRESS 

+4 000250 MMVEC= 250 

B16 ;*KT11 STATUS REGISTER ADDRESSES 

819 177572 SRO= 177572 

820 177574 SR1= 177574 

821 177576 SR2= 177576 

bce 172516 SR3= 172516 

ase s*KERNEL ‘'1'’ PAGE DESCRIPTOR REGISTERS 

826 172300 KIPDRO= 172300 

827 172302 KIPDRI= 172302 

828 172304 KIPDR2= 172304 

829 172306 KIPDR3= 172306 

830 172310 KIPDR4= 172310 

831 172312 KIPDR5= 172312 

832 172314 KIPDR6= 172314 

tH 172316 KIPDR7= 172316 

ctr S*KERNEL ‘'1'’ PAGE ADDRESS REGISTERS 
6 

837 172340 KIPARO= 172340 

838 172342 KIPARI= 172342 

839 172344 KIPAR2= 172344 

840 172346 KIPAR3= 172346 

841 172350 KIPAR4= 172350 

842 172352 KIPARS= 172352 

843 172354 KIPAR6= 172354 

844 172356 KIPAR7= 172356 

845 

846 


847 001110 -=1110 $7 


CZRJJDO, RPO4/5/6 FCTNL Fa MACY11 Taeeee th 


CZRJJD.P11 


WMP POP es SO 
OG fNMOCUFNMOS 


001160 
001162 


28-MAR-79 0 


001100 
000000 


000 
000000 
000000 


000377 


Poi’ 
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-SBTTL COMMON TAGS 


ppeeeererererereereeerereeeereeeeeeeeeeeeeteeeeeeeeeeteneeeeeees 
:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


.=1100 
SCMTAG: 
$PASS: WORD 
STSTNM: .BYTE 
SERFLG: .BYTE 
SICNT: WORD 
$SLPADR: .WORD 
$LPERR: .WORD 
SERTTL: .WORD 
SITEMB: .BYTE 
SERMAX: .BYTE 
SERRPC: .WORD 
$GDADR: .WORD 
$BDADR: .WORD 
$GDDAT: .WORD 
$BDDAT: .WORD 
WORD 
WORD 
$AUTOB: .BYTE 
SINTAG: .BYTE 
WORD 
R: . WORD 
DISPLAY: .WORD 
177 


$REGO: WORD 
$REGI: WORD 
$REG2: WORD 
$REG3: WORD 
$SREG4: WORD 
$REGS: WORD 
STMPO: WORD 
STMP1: WORD 
STMP2: WORD 
$TMP3: WORD 
STMP4: WORD 
$TMP5: . WORD 
STIMES: 0 

SESCAPE:0 


$QUES: ASCII 
$CRLF:  LASCII 


>;START OF COMMON TAGS 

3; CONTAINS PASS COUNT 

;; CONTAINS THE TEST NUMBER 

3; CONTAINS ERROR FLAG 

;; CONTAINS SUBTEST ITERATION COUNT 
:: CONTAINS SCOPE LOOP ADDRESS 

>: CONTAINS SCOPE RETURN FOR ERRORS 
:: CONTAINS TOTAL ERRORS DETECTED 
>: CONTAINS ITEM CONTROL BYTE 

;; CONTAINS MAX. ERRORS PER TEST 

>: CONTAINS PC OF LAST ERROR INSTRUCTION 
;: CONTAINS ADDRESS OF ‘GOOD’ DATA 
::CONTAINS ADDRESS OF ‘BAD’ DATA 
;;CONTAINS ‘GOOD’ DATA 

::CONTAINS "BAD' DATA 

: ;:RESERVED--NOT TO BE USED 


; AUTOMATIC MODE INDICATOR 
: INTERRUPT MODE INDICATOR 


DSwWR :;ADDRESS OF SWITCH REGISTER 
DDISP ; ;ADDRESS OF DISPLAY REGISTER 
3; 1TY KBD STATUS 
:;1TY KBD BUFFER 
::TTY PRINTER STATUS REG. ADDRESS 
s: TTY PRINTER BUFFER REG. ADDRESS 
>: CONTAINS NULL CHARACTER FOR FILLS 
:: CONTAINS # OF FILLER CHARACTERS REQUIRED 
2 i 2 INSERT FILL CHARS. AFTER A “‘LINE FEED" 
s""TERMINAL AVAILABLE'’ FLAG (BI1<07>=0=YES) 
+: CONTAINS THE ADDRESS FROM 
s:WHICH ($REGO) WAS OBTAINED 
: CONTAINS (($REGAD)+0) 
::CONTAINS (($REGAD) +2) 
; CONTAINS (($REGAD) +4) 
; CONTAINS (($REGAD) +6) 
>: CONTAINS (($REGAD) +10) 
>: CONTAINS (($REGAD) +12) 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
;;USER DEFINED 
>; USER DEFINED 
> USER DEFINED 
By NUMBER OF ITERATIONS 
sESCAPE ON ERROR ADDRESS 
<2079¢3779¢377> ; ;;CODE FOR BELL 
?/ QUESTION MARK 
“15> CARRIAGE RETURN 


leoleleleleleleloelelo® jeleleileoleioioio) 


COCO COCOOCOOCOCOCOO COoO-No 


SEQ 0018 
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oS 001224 000012 SLF: «ASCIZ <12> ;;LINE FEED 


pp eeeeeereeeerereeeerereeeeeteretetrereteeeAeeeeeneeeaterentenete 
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001226 


001226 
001230 


001232 
001234 


001236 
001240 


001242 
001244 


001246 
001250 


001256 


043014 
057737 


062210 
062530 


043043 
057737 


062210 
062530 


043132 
057737 


062210 
062530 


043213 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN 
:*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 


s*NOTEI: 
: *NOTE2: 


Be Oe ee we 
2s 2 2 © 


SERRTB: 


;1TEM1 


;1TEM2 


71 TEMS 


71 TEMS 


EM 


EM2 


IF SITEMB 1S 0 THE ONLY PERTINENT DATA IS (S$ERRPC) 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;;POINTS TO THE ERROR MESSAGE 
;;POINTS TO THE DATA HEADER 
;;POINTS TO THE DATA 

>;POINTS TO THE DATA FORMAT 


;RPO4 DID NOT INTERRUPT 
+ ens ON BIT DID NOT OCCUR 


sWAT PC 

sBIT WAITED 

;REG ADDRESS 

;REG CONTENTS 

;RHCS1 CONTENTS 

sSERRPC ,WAITPC,WAITBT ,WAITRE,SBDDAT,CS1 
30,0,0,0.0,0 


; INTERRUPT ENABLE BIT DOWN BUT 
A ahead ON BIT DID NOT OCCUR 


;WAT PC 

;B1T WAITED 

;REG ADDRESS 

;REG CONTENTS 

;RHCS1 CONTENTS 

sSERRPC ,WAITPC ,WAITBT WAILTRE,SBDDAT,CS1 
:0,0,0,0,0,0 


;RPO4 DID NOT INTERRUPT WHEN 
+ aes ON BIT DID SET 


sWAT PC 

:BIT WAITED 

;REG ADDRESS 

;RHCS1 CONTENTS 

;SERRPC ,WAITPC WAITBT ,WAITRE,SBDDAT,CS1 


;WAITED ON BIT DID SET Bul 
TIME 1S IN ERROR 


SEQ 0020 


¢ 
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962 :TIME IS GIVEN IN 10 MICRO SEC. 
963 ; (DECIMAL) 

964 001260 060117 DH4 7PC 

965 sWAT PC 

966 ;BIT WAITED 

967 ;REG ADDRESS 

968 sTIME IN 10 MSEC 

969 001262 062230 D014 sSERRPC,WAITPC ,WAITBT ,WAITRE,SBDDAT ,WAITIM 
4 001264 062537 DF4 30,0,0,0,0,1 

972 ;1TEMS 

973 001266 043324 EMS :RHAS DOES NOT CLEAR BY 

974 sMOVING IN ALL ONES 

975 001270 060260 DHS 7PC 

976 ;REG. ADDR. 

977 ;GOOD DATA 

978 ;RECEIVED DATA 

979 001272 062252 DT5 :SERRPC,REGADR,SGDDAT,$BDDAT 
sar 001274 062546 DFS :0,0,0,0 

982 s 1TEM6 

983 001276 043376 EM6 sLOADING RHER1 FOR ALL 

984 sUNITS DID NOT SET ANY BITS 
985 > IN RHAS-NO UNITS PRESENT 
986 001300 060377 DH6 7 PC 

987 ;REG ADDR 

988 ;RECEIVED DATA 

989 001302 062266 DT6 ;SERRPC,REGADR,SBDDAT 

2 001304 062553 DF6 :0,0,0 

992 s1TEM7 

993 001306 043464 EM7 :SPECIFIED REGISTER NONEXISTANT 
994 :SO ABORT PROGRAM 

995 001310 060476 DH7 :PC 

996 ;ADDR. OF REG. 

997 001312 062300 D17 sSERRPC, TEMP) 

998 001314 062557 DF7 30,0 

999 

1000 ; 1TEM10 

1001 001316 043534 —EM10 ;STOPED DRIVE HAS MOL BIT 
1002 sIN RHDS1 = 1 

1003 001320 060536 DH10 7 PC 

1004 :TEST NO 

1005 . sFAILING REG ADDR 

1006 ' sCONTENTS OF RHCS1 

1007 sCONTENTS OF RHCS2 

1008 sCONTENTS OF RHDS1 

1009 ; CONTENTS OF RHER1 

1010 001322 062310 D110 :$SERRPC, $STSTNM,$BDADR,CS1,C52,DS1,ER1 
+ 44 001324 062562 DF10 :0,0,0,0,0,0,0 

1013 7 1TEM11 

1014 001326 043603 —EM11 sWITH SPINDLE POWERED DOWN 
1015 ;RHCS2 SHOULD HAVE ONLY 
1016 ;UNIT NUMBER AND IR HIGH 
1017 001330 060536 DH10 sPC 


’ @ 
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1018 ; TEST NO 
1019 FAILING REG. ADR 
1020 > CONTENTS OF RHCS} 
1021 : CONTENTS OF RHCS2 
1022 : sCONTENTS OF RHDS1 
1023 : CONTENTS OF RHER1 
1024 001332 062310 D110 “SERRPC, $TSTNM,$BDADR,CS1,CS2,D051,ER1 
ba By 001334 062562 DF10 30,0,0, 6,0, 0,0 
1027 s1TEM12 
1028 001336 043710 EM12 sAFTER A POWER UP WITH 
1029 ;NO PACK ACKNOWLEDGE COMMAND 
1030 :RHDS1 SHOULD HAVE MOL=1, vv=0 
1031 001340 060536 DH10 :PC 
1032 ; TEST NO 
1033 sFAILING REGISTER ADDR. 
1034 sCONTENTS OF RHCS1 
1035 :CONTENTS OF RHCS2 
1036 ;CONTETNS OF RHDS1 
1037 sCONTENTS OF RHER1 
1038 001342 062310 D110 sSERRPC,STSTNM, $BDADR,CS1,€S2,DS1,ER1 
1039 001344 062562 DF10 ;0,0,0,0,0,0,0 
1040 
1041 ;1TEM13 
1042 001346 044016 EM13 sAFTER A POWER UP WITHOUT 
1043 sANY INIT RHCS1 SHOULD 
1044 ;HAVE GO=0, DVA=1, RDY=1 
1045 7 1&=0, DISREGARD 

* 1046 sALL OTHER BITS 
1047 001350 060536 DH10 sPC 
1048 : TEST NO 
1049 sFAILING REGISTER ADDR. 
1050 sCONTENTS OF RHCS1 
1051 ; CONTENTS OF RHCS2 
1052 sCONTENTS OF RHDS1 
1053 ;CONTENTS OF RHER1 
1054 001352 062310 D110 “SERRPC, STSTNM,$BDADR,CS1,CS2,051,ER1 
1055 001354 062562 DF 10 70,0,0,0,0,0,0 
1056 
1057 sI1TEM14 
1058 001356 044155 EM14 ;AFTER POWER UP RHCC 
1059 ;SHOULD BE=0 
1060 001360 060260 DHS :PC 
1061 ;REG. ADDR. 
1062 ;GOOD DATA 
1063 sRECEIVED DATA 
1064 001362 062252 DTS :SERRPC,REGADR,S$GDDAT ,$BDDAT 
1065 001364 062546 DFS :0,0,0.0 
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1067 7 1TEM15 
1068 001566 044207 EM15 ;PACK ACKNOWLEDGE CAUSED 
1069 ;AN ERROR 
1070 ;GOO0D DATA IS BEFORE COMMAND 
1071 RECEIVED DATA IS AFTER COMMAND 
1072 001370 060260 DHS : 
1073 ;REG. ADDR. 
1074 ;GOOD DATA 
1075 sRECEIVED DATA 
1076 001372 062252 D15 ; SERRPC ,REGADR,SGDDAT , SBDDAT 
1077 001374 062546 DFS :0,0,0,0 
1078 
1079 ;1TEM16 
1080 001376 044350 EM16 ;GIVING A NO-OP COMMAND CAUSED 
1081 ;AN ERROR 
1082 ;GOOD DATA GIVES REGISTER 
1083 ; CONTENTS BEFORE COMMAND 
1084 RECEIVED DATA GIVES REGISTER 
1085 ;CONTENTS AFTER COMMAND 
1086 001400 060260 DHS :PC 
1087 , ;REG. ADDR. 
1088 ;GOOD DATA 
1089 sRECEIVED DATA 
1090 001402 062252 DT5 ; SERRPC ,REGADR ,SGDDAT , SBDDAT 
1091 001404 062546 DFS :0,0,0,0 
1092 
1093 31TEMI7 
1094 001406 044476 EM17 ;DRIVE CLEAR COMMAND 
1095 ; CAUSED AN ERROR 
1096 ;GOOD DATA GIVES WHAT SHOULD 
1097 ;BE THERE 
1098 ;RECEIVED DATA GIVES WHAT WAS 
1099 ; THERE AFTER COMMAND 
1100 001410 060260 DHS :PC 
1101 ;REG. ADDR. 
1102 GOOD DATA 
1103 ;RECEIVED DATA 
1104 001412 062252 D15 7; SERRPC,REGADR,SGDDAT , SBDDAT 
1105 001414 062546 DFS :0,0,0,0 
1106 
1107 ;1TEM20 
1108 001416 044633 EM20 ;READ-IN COMMAND GAVE AN ERROR 
1109 ;GOOD DATA HAS WHAT SHOULD BE THERE 
1110 RECEIVED DATA HAS WHAT WAS 
1711 AFTER COMMAND 
1112 001420 060260 DH5 :PC 
1113 sREG. ADDR. 
1114 :GOOD DATA 
1115 ;RECEIVED DATA 
1116 001422 062252 D15 ;SERRPC ,REGADR,$GDDAT ,SBDDAT 
1117 001424 062546 DFS :0,0,0,0 
1118 
1119 
1120 ;1TEM 21 
1121 0014626 045002 E ;RHCS1 CONTENTS DURING 
1122 ;COMMAND WAS IN ERROR 
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001430 
001432 
001434 


001436 
001440 


001442 
001444 


001446 


001450 


001452 
001454 


001456 


001460 
001462 
001464 


001466 


001470 
001472 
001474 


001476 
001500 


001502 
001504 


001506 


060260 
062252 
062546 


045055 
060260 


062252 
062546 


045130 


060260 


062252 
062546 


045277 


060260 
062252 
062546 


045442 


060260 
062252 
062546 


045624 
060715 


062330 
062571 


045714 


L 
79 


ITEM 26 
EM26 
DH26 


D126 
DF 26 


s1TEM 27 
EM27 
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;RHDS1 CONTENTS DURING 
;COMM ANS WAS IN ERROR 


;UNLOAD COMMAND GAVE AN ERROR 
:GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;OFFSET COMMAND CAUSED AN ERROR 
;GOOD DATA IS WHAT SHOULD BE THERE 
RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER AN OFFSET COMMAND 


;RETURN TO CENTER LINE COMMAND 
;CAUSED AN ERROR 
5 oo: as GIVES WHAT SHOULD BE 


; THER 
sRECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


fom OFFSETS CAUSED AN ERROR 


:PC 

;CONT. OF RHCS1 

;CONT. OF RHCS2 

;CONT. OF RHDS1 

:CONT. OF RHER1 

CONT. OF RHER2 

:CONT. OF RHERS 
sSERRPC,CS1,CS2,DS1,ER1,ER2,ER3 


30, e e . . 


;WRITE HEADER AND DATA 
;CAUSED IMPROPER REGISTER CHANGE 
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1179 GOOD DATA GIVES WHAT 
1180 ; SHOULD BE THERE 
1181 RECEIVED DATA GIVES WHAT 
1182 ;WAS THERE AFTER COMMAND 
1183 001510 060260 DHS 
1184 001512 062252 D15 
1185 001514 062546 DFS 
1186 
1187 ;1TEM 30 
1188 001516 046132 EM30 ;WRITE HEADER AND DATA 
1189 ; CHANGED WRITE FROM BUFFER 
1190 001520 061115 DH30 :PC 
1191 ;WORD NO 
1192 ;GOOD DATA 
1193 ;BAD DATA 
1194 001522 062352 D130 ;SERRPC, ,ERWORD,SGDDAT , SBDDAT 
ioe 001524 062601 DF 30 :0,0,0,0 
1197 71TEM 31 
1198 001526 046212 EM31 ;READ HEADER AND DATA CAUSED 
1199 ; IMPROPER REGISTER CHANGE 
1200 ;GOOD DATA HAS WHAT SHOULD 
1201 ;BE THERE 
1202 RECEIVED DATA GIVES WHAT 
1203 WAS THERE AFTER COMMAND 
1206 001530 060260 DH5 
1205 001532 062252 DT5 
1206 001534 062546 DFS 
1207 
1208 s1TEM 32 
1209 001536 046427 EM32 ;WRITE HEADER AND DATA FOLLOWED 
1210 ;BY A READ HEADER AND DATA 
1211 ;CAUSED A READ/WRITE ERROR 
1212 001540 061115 DH30 
1213 001542 062352 D130 
1214 001544 062601 DF 30 
1215 
1216 ;1TEM 33 
1217 001546 046534 EM33 ;READ DATA CAUSED IMPROPER REGISTER 
1218 ; CHANGE 
1219 7GOUD DATA GIVES WHAT SHOULD BE THERE 
1220 RECEIVED DATA GIVES WHAT WAS THERE AFTER 
1221 ; COMMAND 
1222 001550 060260 DHS 
1223 001552 062252 DT5 
1224 001554 062546 DFS 
1225 
1226 ;1TEM 34 " 
1227 001556 046736 EM34 READ DATA INCORRECT 
1228 001560 061115 DH30 
1229 001562 062352 0130 
st 001564 062601 DF 30 
1232 7ITEM 35 
1233 001566 046762 EM35 WRITE DATA COMMAND CAUSED 
1234 ; IMPROPER REGISTER CHANGE 
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1235 
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001570 
001572 
001574 


001576 
001600 


001602 
001604 


001606 


001610 
001612 
001614 


001616 


001620 
001622 
001624 


001626 


001630 
001632 
001634 


001636 


28-MAR-79 


060260 
062252 
062546 


047200 
061115 


062352 
062601 


047255 


060260 
062252 
062546 


047472 


060260 
062252 
062546 


047701 


060260 
062252 
062546 


050162 


CT 
08 


LR 
52 


2 MACY) 


30A(1052) 


s1TEM 37 
—EM37 


;1TEM 41 


s1TEM 42 
EM42 


25-MAY-79 
ERROR POINTER TABLE 


EM41 


N 2 
10:48 PAGE 27, 


a 


;GOO0D DATA GIVES WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES REGISTER 


CONTENTS AFTER WRITE DATA 


“oO 
z2>Y 


TA COMMAND CHANGED 
OM BUFFER 


;SEEK COMMAND CAUSED AN 
; ERROR 


Mt 
;GOOD DATA GIVES WHAT SHOULD 


7 BE 


WAS THERE AFTER SEEK COMMAND 


THERE 
RECEIVED DATA GIVES WHAT 


;WRITE CHECK CAUSED AN 
; IMPROPER REGISTER CHANGE 


“GOOD DATA GIVES WHAT SHOULD 


;BE THERE 


RECEIVED DATA GIVES WHAT WAS 


; THERE AFTER COMMAND 


;LOCKING OUT WRITES BY WRITE 
;LOCK BUTTON CAUSED IMPROPER 


REGISTER CHANGE 


;GOOD DATA GIVES WHAT SHOULD 


;BE THERE 
RECEIVED DATA GIVES WHAT 
WAS THERE AFTER WRITES 
;WERE LOCKED OUT BY 


;BuT 


SATTEMPTING TO WRITE WITH WRITE 
;LOCKED OUT CAUSED IMPROPER 


TON 


;REGISTER CHANGE 


;GO0D DATA GIVES WHAT SHOULD 


7 BE 


THERE 


SEQ 0026 
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CIRIID. Pil 28-MAR-79 08:52 ERROR POINTER TABLE SEQ 0027 
129) ;RECEIVED DATA GIVES WHAT WAS 
1292 ; THERE AFTER ATTEMPT 
1293 001640 060260 DHS , 

1294 001642 062252 015 
1295 001644 062546 DFS 
1296 
1297 SITEM 43 
1298 001646 050440 EM43 sWRITING WITH WRITE LOCKED 
1299 ‘ ;OUT CHANGED DISK DATA 
1300 F ;GOOD DATA GIVES WHAT WAS 
1301 sON DISK BEFORE WRITE WITH 
1302 sWRITE LOCK WAS ATTEMPTED 
1303 sRECEIVED DATA GIVES WHAT WAS 
1304 sREAD BACK AFTER WRITE WITH 
1305 sWRITE LOCK WAS ATTEMPTED 
1306 001650 061115 DH30 
1307 001652 062352 D130 
1308 001654 062601 DF30 
; ITEM 44 
001656 050776 EM44 sENABLING WRITES BY WRITE LOCK 


;BUTTON CAUSED AN ERROR 
pe DATA GIVES WHAT SHOULD 
, ;BE THERE 
' RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER WRITE LOCK 
:BUTTON ENABLED WRITES 


001660 060260 DHS ; 

001662 062252 ; D15 j 

001664 062546 DFS : 
sITEM 45 

001666 051270 EM4S ; TRANSFERRING ON LAST BLOCK IE. CYLINDER 
7410, SECTOR 21, TRACK 18 


: CAUSED IMPROPER REGISTER 
+e oe GIVES WHAT SHOULD 


RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER TRANSFER 


001670 060260 DHS 
001672 062252 015 
001674 062546 DFS 


me ee ks i a ek ke tk at a ot 
EOE rt rt Lt Lt rt rt tt rt tt td td A tt AA tt 
WEEE A POPU PV PU DYMO PD ss | OO 

OWmFWN OO OOne UFWNM—O OOnevirwn—-Oov°o 


‘S ITEM 46 
001676 051576 ' EM46 ;DATA READ FROM LAST 
37 ' sBLOCK IE. CYLINDER 410 
38 sSECTOR 21, TRACK 18 1S IN 
39 ERROR 
40 001700 061115 : DH30 
41 001702 062352 ; D130 
“ 001704 062601 DF 30 
4 
44 ;1TEM 47 
45 001706 051722 EM47 ; TRANSFERRING FROM NONEXISTANT 
346 sSECTOR CAUSED IMPROPER 
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001720 
901722 
001724 


001726 


001730 


001732 
001734 


001736 


001740 
001742 
001744 


001746 
001750 


001752 
001754 


28-MAR-79 


060260 
062252 
062546 


052204 


061115 
062352 
062601 


052423 


061227 


062366 
062606 


052670 


060260 
062252 
062546 


053141 
061115 


062552 
062601 


08:52 


ERROR PO 


;1TEM 52 


s1TEM 53 
EM 


25-MAY-79 
INTER TABLE 


DH51 


D151 
DF51 


Ie 
10:48 PAGE 29 


;REGISTER CHANGE 
ere DATA GIVES WHAT SHOULD 


;BE THERE 

;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED 

; TRANSFER 


; TRANSFERRING FROM eth leas 
;SECTOR CAUSED DATA ERRO 
:GOOD DATA GIVES WHAT 


;SHOULD BE IN BUFFER 
;RECEIVED DATA GIVES WHAT WAS, 
7; 1N BUFFER AFTER TRANSFER 


;GIVING ILLEGAL FUNCTION CAUSED 
; IMPROPER REGISTER CHANGE 
to 1 Pagal GIVES WHAT SHOULD BE 


; THER 
sRECEIVED DATA GIVES REGISTER 
_* AFTER ILLEGAL FUNCTION 


;REG. ADDR. 

;GOOD DATA 

;RECEIVED DATA 

; ILLEGAL FUNCTION 

;SERRPC ,REGADR,SGDDAT ,SBDDAT ,, ILLEGL 
:0,0,0,0,0 


;WRITE DATA ON NONEXISTANT 
;SECTOR CAUSED IMPROPER 


;REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


;RECEIVED DATA GIVES WHAT 
WAS THERE AFTER ATTEMPTED 


:WRITE DATA 


;READ HEADER AND DATA AFTER 
;A SEARCH CAUSED AN ERROR 


SEQ 0028 


dD 3 
CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 30 


CZRJJID. Pil 28-MAR-79 08:52 ERROR POINTER TABLE SEQ 0029 
1403 
1404 s1TEM 54 
1405 001756 053227 EMS4 ATTEMPTED OPERATION WITH 
1406 s INVALID ADDRESS CAUSED 
1407 ; IMPROPER REGISTER CHANGE 
1408 :GOOD DATA GIVES WHAT SHOULD 
1409 ;BE THERE 
1410 sRECEIVED DATA GIVES WHAT WAS 
1411 THERE AFTER OPERATION 
1412 001760 060260 DHS 
1413 001762 062252 DTS 
1414 001764 062546 DFS 
1415 
1416 s1TEM 55 
1417 001766 053474 EM55 sWRITING/READING WITH EXPECTED 
1418 ADDRESS OVERFLOW ERROR CAUSED 
1419 s IMPROPER REGISTER CHANGE 
1420 GOOD DATA GIVES WHAT SHOULD 
1421 ;BE THERE 
1422 sRECEIVED DATA GIVES WHAT 
1423 :WAS THERE AFTER OPERATION 
1424 001770 060260 DHS 
1425 001772 062252 DTS 
1426 001774 062546 DFS 
1427 
1428 :1TEM 56 
1429 001776 053762 EM56 :DATA READ WITH AN EXPECTED 
1430 sADDRESS OVERFLOW ERROR 1S 
1431 , : INCORRECT 
1432 ‘WORD NO 1 TO 260 SHOULD 
1433 ‘BE - READ 
1434 WORD NOS 261 TO 266 SHOULD 
1435 :NOT CHANGE DUE TO READ 
1436 002000 061115 DH30 ; 
1437 002002 062352 D130 
1438 002004 062601 DF 30 
1439 
1440 :1TEM 57 
1441 002006 054172 EMS7 ATTEMPTING DATA COMMAND 
1442 sWITH WRONG FORMAT BIT CAUSED 
1443 s IMPROPER REGISTER CHANGE 
1444 GOOD DATA GIVES WHAT SHOULD BE 
1445 3 THERE 
1446 sRECELVED DATA GIVES WHAT WAS 
1447 THERE AFTER ATTEMPTED DATA 
1448 : TRANSFER 
1449 002010 060260 DHS 
1450 002012 062252 DT5 
1451 002014 062546 DFS 
1452 
1453 "> 1 TEM 60 
1454 002016 054464 EM60 ATTEMPTING TO MODIFY REGISTER 
1455 ; P DURING AN OPERATION CAUSED 
1456 : IMPROPER REGISTER CHANGE 
1457 :GOOD DATA GIVES WHAT SHOULD 


1458 ;BE THERE 
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1467 002022 
1468 002024 


1471 002026 
1472 002030 


1475 002032 
1476 002034 


1479 002036 
1480 002040 


1483 002042 
1484 002044 


1488 002046 


1490 002050 
1491 002052 
1492 002054 


1496 002056 


1502 002060 
1503 002062 
1504 002064 


7 

8 

9 002066 
° 002070 
2 

3 

4 


28-MAR- 


prs | 002020 061366 


062404 
062614 


055073 
061523 


062422 
062622 


055073 
061615 


062434 
062626 


055157 


060260 
062252 
062546 


055232 


060260 
062252 
062546 


055451 
061670 


LR 
52 
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MACY11 30A(1052) 


DH60 


D160 
DF60 


; ITEM 61 
EM61 
DH61 
D161 
DF61 

ITEM 62 
EM61 
DH62 


D162 
DF 62 


;1TEM 63 
EM63 


;1TEM 64 
EM64 


DHS 
D15 
DFS 


s 1 TEMOS 


EM65 
DHO65 


25-MAY-79 
ERROR POINTER TABLE 


E 3 
10:48 PAGE 31 


;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER OPERATION 
‘eee COMPLETE 


;PC 
;REG. ADDR. 
;GOOD DATA 


;RECEIVED DATA 
;MODFING REGISTER 
;SERRPC ,REGADR,SGDDAT , SBDDAT , S$BDADR 


:0,0,0,0,0 


SEQ 0050 


;DEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN 
;P 


;PC 
;PC OF JSR 


;RHDS1 
;SERRPC,PCJSR,$BDADR 


. ’ ’ 


;DEVICE NOT AVAIBLE BEFOR COMMAND WAS TO BE GIVEN 
: PC 


“PC OF JSR 
sRHCS1 WAS 


;SERRPC,PCJSR,$BDADR 


RHDS1 CONTENTS DURING 
; COMMAND WAS IN ERROR 


;RECALIBRATE COMMAND CAUSED 
; IMPROPER REGISTER CHANGE. 
;GOOD DATA GIVES WHAT SHOULD BE 


; THERE. 


RECEIVED DATA GIVES WHAT WAS THERE 
;AFTER COMMAND 


; INTERRUPT FAILING 
PC 


“TEST NO 


CONTENTS OF RHCS1 
CONTENTS OF RHAS 
CONTENTS OF RHDS1 


CZRJJDO, RPO4/5/6 At CTRLR2 MACY11 30A(1052) 25-MAY-79 
CZRJJID.P11 28-MAR-79 08:52 ERROR POINTER TABLE 

1515 002072 062446 D165 
1516 002074 062632 DF65 
1517 

1518 

1519 > 1TEM66 

1520 002076 055473 EM66 
1521 

1522 

1523 

1524 

1525 

1526 002100 062004 DH66 
1527 

1528 

1529 

1530 

1531 

1532 

1533 002102 062462 D166 
1534 002104 062637 DF 66 
1535 7 1TEM67 

1536 002106 055704 EM67 
1537 

1538 

1539 

1540 

1541 

1542 

1543 002110 061115 DH30 
1544 002112 062352 D130 
1545 002114 062601 DF 30 
1546 7 1TEM70 

1547 002116 056160 EM70 
1548 

1549 

1550 

1551 

1552 

1553 

1554 002120 061115 DH30 
1555 002122 062352 D130 
1556 002124 062601 DF 30 
1557 

1558 :1TEM 71 
1559 002126 056366 EM71 
1560 

1561 

1562 

1563 

1564 

1565 002130 060260 DHS 
1566 

1567 

1568 

1569 002132 062252 D15 
1570 002134 062546 DFS 


F 3 
10:48 PAGE 22 
SEQ 0031 


;SERRPC,TSTNM,CS1,AS,DS1 


;HEADER AND DATA COMMAND 

;FOR HEAD SELECTION TEST 

; CAUSED AN ERROR 

;RHDST GIVES WHAT TRACK 

7WAS BEING WRITTEN ON CYLINDER 0 
2+ leg 0 


;RHCS2 
;SERRPC,DST,ERI,.ER2,ER3,CS1,CS82 
:0,0,0,0,0,0,0 


;READ HEADER AND DATA ERROR 

; IN HEAD SELECTION TEST 
sFIRST FOUR WORDS GIVE HEADER 
;NEXT WORDS ARE DATA 

;GOOD DATA WORDS GIVE 

; THE TRACK NUMBER IN 

;BITS 4,5,6,7,8 


;READ HEADER AND DATA ERROR 
sIN DIFFERENCE LINE TEST 
;WORD NOS. 1-4 GIVE 

s HEADER 

sWORD NOS. 5-260 GIVE DATA 
sWHICH IS THE CYLINDER 

; ADDRESS 


sFORCING OP] CAUSED IMPROPER REGISTER 
; CHANGE 

or DATA GIVES WHAT SHOULD 

;BE THERE 

RECEIVED DATA GIVES WHAT WAS 

; THERE AFTER 3 INDEX PULSES 


PC 
REG. ADDR. 
;GOOD DATA 
SRECEIVED DATA 
;SERRPC ,REGADR,SGDDAT ,SBDDAT 


30,0.0, 
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85 002142 
586 002144 


593 002146 


595 002150 
1596 002152 
1597 002154 


1600 002156 
1602 002160 


1603 002162 
002164 
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056627 


062102 


062504 
062650 


057075 


062102 
062504 
062650 


057245 
062102 


062504 
062650 


s1TEM72 


s1TEM73 
E 


s1TEM74 
E 


EM72 


DH72 
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; THERE WAS AN ERROR 
AFTER A WRITE HEADER 
;AND DATA COMMAND 


;RHWC 
;SERRPC,CS1,CS2,D0S1,DS1, CA, ERI WC 
:0,0,0,0,0,0,0,0 


;READING OVER 3 INDEX 
;PULSES CAUSED SC 


;READING OVER 3 INDEX 
;PULSES CAUSED OPI 





SEQ 0032 



























ee eee 
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002166 000254 


000001 


100000 
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ERROR POINTER TABLE 


ppeeeeeeeerererereeererereretetereteeeeeeteeneeneeeeererereneeees 


;RH11 REGISTER BITS 


ppereeeeeeeerereeererreterrerererereretenteneeeneeeeneAeeeeeeeeee 


RPVEC: 254 


% 


;RPO4 VECTOR ADDRESS 


;WORD COUNT REGISTER (RHWC) 
;EACH BIT 1S CALLED BY BIT NUMBER 


;BUS ADDRESS REGISTER (RHBA) 
;EACH BIT 1S CALLED BY BIT NUMBER 


;CONTROL AND STATUS REGISTER 2 (RHCS2) 


;UNIT SELECT (BIT #0) 
;UNIT SELECT (BIT #1) 


US1= 1 
US2= 2 
US4= 4 
BAI= 10 
UNIB= 2C 
CLR= 40 
IR= 100 
OR= 200 
MPE= 400 
MXF = 1000 
PGE= 2000 
NEM= 4000 
NED= 10000 
UPE= 20000 
wCE= 400 


00 
DLT= 100000 


;DATA BUFF 
;EACH BIT 


ER 
I$ 


;UNIT SELECT (BIT #2) 

;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
;UNIBUS B DC LO (BIT #4) 

CLEAR (BIT #5) 


INPUT READY (BIT #6) 

;OUTPUT READY (BIT #7) 

MASS BUS PARITY ERROR (BIT #8) 
MISSED TRANSFER ERROR (BIT #9) 
;PROGRAM ERROR (BIT #10) 

NON EXISTANT MEMORY (BIT #11) 
NON EXISTANT DRIVE (BIT #12) 
;UNIBUS PARITY ERROR (BIT #13) 
WRITE CHECK ERROR (BIT #14) 
DATA LATE (BIT #15) 


REGISTER (RHDB) 
CALLED BY BIT NUMBER 





SEQ 0033 
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ERROR POINTER TABLE 


35 


pp eteerereeereerrerereereretereterererteneeeKeeeKeeteee RAHAT eee 


;RPOG REGISTER BITS 


ppeeeeererererereeerererereeeeree eee eee Kee Ke RTA TARA KAA AAA THT Ae 


SEQ 0034 

















































~ 000001 


100000 


000001 


100000 


000001 


100000 


;CONTROL AND STATUS 1 REGISTER. ( 


GO= 1 
1E= 100 
RDY= 209 
Al6= 400 
Al7= 1060 
PSEL= 2000 
DVA= 4000 
MCPE= 20000 
TRE= 40000 
SC= 100000 
sSTATUS REGISTER (RHDS1) (#01) 
DFFS= 1 
DFF20= 2 
DIGB= 4 
GRV= 10 
DL64= 20 
DE1= 40 
VV= 100 
DRY= 200 
DPR= 400 
PROG= 1000 
LBT= 2000 
WRL= 4000 
MOL= 10000 
PIP= 20000 
ERR= 40000 
ATA= 100000 
; ERROR > nae #01 (RHERI) (#02) 
ILF = 
ILR= ) 
RMR= 4 
PAR= 10 
FER= 20 
wCF= 40 
ECH= 100 
HCE= 200 
HCRC= 400 
AOE = 1000 
]AE= 2000 
WLE= 4000 
DIE= 10000 
OP I= 20000 
UNS= 40900 
DCK= 100000 


#00) 


;GO0 (BIT #0) 

; INTERRUPT ENABLE (BIT #6) 
;READY (BIT #7) 

;HIGH ORDER UNIBUS BITS (BIT #8) 
;HIGH ORDER UNIBUS BITS (BIT #9) 


;PORT SELECT (BIT #10) 

;DEVICE AVAILABLE (BIT #11) 
:MASSBUSS PARITY ERROR (BIT #13) 
; TRANSFER ERROR (BIT #14) 


:SPECIAL CONDITION (BIT #15) 


SDRIVE FORWARD S5''/SEC. (BIT #0) 
SDRIVE FORWARD 20°'7SEC. (BIT #1 
:DRIVE TO INNER GAVRD BAND (BIT 
:GO REVERSE (BIT #3) 

:DIFFERENCE LESS THAN 64 (BIT #4) 
:DIFFERENCE EQUALS 1 (BIT #5) 
;VOLUME VALID (BIT #6) 

:DRIVE READY (BIT #7) 


DRIVE PRESENT (BIT #8) 
;PROGRAMABLE (BIT #9) 
;LAST SECTOR TRANSFERRED (BIT #10) 


TWRITE LOCK (BIT #11) 


;MEDIUM ON-LINE (BIT #12) 


:POSITIONING OPERATION IN PROGRESS (BIT #15) 


;COMPOSIT ERROR. (BIT #14) 


ZATTENTION ACTIVE (BIT #15) 


:ILLEGAL FUNCTION (BIT #0) 
ILLEGAL REGISTER (BIT #1) 


:REGISTER MODIFICATION REFUSED (BIT #2) 


;PARITY ERROR (BIT #3) 
FORMAT ERROR (BIT #4) 
WRITE CLOCK FAIL (BIT #5) 
ECC HARD ERROR (BIT #6) 


:HEADER COMPARE ERROR (BIT #7) 
HEADER CRC ERROR (BIT #8) 
;ADDRESS OVERFLOW ERROR (BIT #9) 
; INVALID ADDRESS ERROR (BIT #10) 


;WRITE LOCK ERROR (BIT #11) 
;DRIVE TIMING ERROR (BIT #12) 
OPERATION INCOMPLETE (BIT #13) 
;DRIVE UNSAFE (BIT #14) 


:DATA CHECK ERROR (BIT 15) 


) 
#2) 
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1709 ;MAINTAINABILITY REGISTER (RHMR) (#03) 









SEQ 0035 


1710 

1711 000001 DMD= 1 sDIAGINOSTIC MODE (BIT #0) 

1712 000002 MCLK= 2 sMAINTAINABILITY CLOCK (BIT #1) 

1713 000004 MINX= 4 s:MAINTAINABILITY INDEX (BIT #2) 

1714 000010 MSTCK= 10 s;MAINTAINABILITY SECTOR CLOCK (BIT #3) 

1715 000020 MRD= 20 :MAINTAINABILITY READ (BIT #4) 

1716 000040 MWR= 40 :MAINTAINABILITY WRITE (BIT #5) 

4 aE 001000 DTSY= 1000 :MAINTAINABILITY SYNC DETECTED (BIT #9) 

+ 4 ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 

1721 000001 ATO= 1 :DEVICE 0 (BIT #0) 

1722 000002 ATl= 2 sDEVICE 1 (BIT #1) 

1723 000004 AT2= 4 sDEVICE 2 (BIT #2) 

1724 000010 AT3= 10 sDEVICE 3 (BIT #3) 

1725 000020 AT4= 20 DEVICE 4 (BIT #4) 

1726 000040 AT5= 40 sDEVICE 5 (BIT #5) 

1727 000100 AT6= 100 sDEVICE 6 (BIT #6) 

1728 000200 Al7= 200 sDEVICE 7 (BIT #7) 

1729 

1730 

1731 

1732 

1733 

1734 

1735 DESIRED SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 

He sEACH BIT 1S CALLED BY BIT NUMBER 

1738 

1739 

1740 

1741 

1742 DRIVE TYPE REGISTER (RHDT) (#06) 

1743 EACH BIT IS CALLED BY BIT NUMBER 

1744 

1745 

1746 

1747 

1748 

fied sLOOK-AHEAD REGISTER (RHLA) (#07) 

1751 000001 EXTl= 1 EXTENSION 1 (Bil #0) 

1752 000002 EXT2= 2 sEXTENSION 2 (BIT #1) 

1753 000004 EXT4= 4 sEXTENSION 3 (BIT #2) 

1754 000010 ExT10= 10 EXTENSION 4 (BIT #3) 

1755 000020 EXT20= 20 sEXTENSION 5 (BIT #4) 

1756 000040 EXT40= 40 EXTENSION 6 (BIT #5) 

1757 000100 $Cl= 100 SECTOR COUNT FIELD 0 (BIT #6) 

1758 000200 $C2= 200 :SECTOR COUNT FIELD 1 (BIT #7) 

1759 000400 $C4= 400 :SECTOR COUNT FIELD 2 (BIT #8) 

1760 001000 $C10= 1000 :SECTOR COUNT FIELD 3 (BIT #9) 

1761 002000 $¢20= 2000 :SECTOR COUNT FIELD 4 (BIT #10) 

1762 004000 TRK1= 4000 ; TRACK FIELD 1 (BIT #11) 

1763 010000 TRK2= 10000 s TRACK FIELD 2 (BIT #12) 
020000 TRK4= 20000 sTRACK FIELD 3 (BIT #13) 
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1765 040000 TRK10= 40000 sTRACK FIELD 4 (BIT #14) 

1708 100000 TRK20= 100000 TRACK FIELD 5 (BIT #15) 

ites ZERROR REGISTER»-#2 (RHER2) (#10) 

1770 000001 wCuU= ay sWRITE CURRENT UNSAFE (BIT #0) 

1771 000002 CSF= 2 CURRENT SINK FAILURE (BIT #1) 

1772 000004 wSuU= 4 SWRITE SELECT UNSAFE (BIT #2) 

1773 000010 CSu= 10 sCURRENT SWITCH UNSAFE (BIT + 

1774 000020 MSE= 20 sMOTOR SEQUENCE ERROR (BIT #4 

1775 000040 1DF = 40 [TRANSITIONS DETECTOR FAILURE. (BIT #5) 

1776 000100 TUF= 100 s TRANSITIONS UNSAFE (BIT #6) 

1777 000200 FEN= 200 sFAILSAFE ENABLED (BIT #7) 

1778 000400 wRU= 400 WRITE READY UNSAFE (BIT #8) 

1779 001000 MHS= 1000 sMULTIPLE HEAD SELECT (BIT #9) 

1780 002000 . NHS= 2000 :NO HEAD SELECTION (BIT #10) 

1781 004000 IXE= 4000 : INDEX ERROR (BIT #11) 

1782 010000 vu30= 10000 > 30VOLT UNSAFE (BIT #12) 

1783 020000 PLU= 20000 :PLO UNSAFE (BIT #13) 

ree 100000 ACU= 100000 :ACUNSAFE (BIT #15) 

Tae OFFSET REGISTER (RHOF) (#11) 

1788 000001 OF25= 1 OFFSET 25 MICRO INCHES (BIT #0) 

1789 000002 OF50= 2 OFFSET 50 MICRO INCHES (BiT #1) 

1790 000004 OF100= 4 , OFFSET 100 MICRO INCHES (BIT #2) 

1793 000010 OF200= 10 OFFSET 200 MICRO INCHES (BIT #3) 

1792 000020 OF400= 20 OFFSET 400 MICRO INCHES (BIT #4) 

4 4 000040 OF800= 40 sOFFSET 800 MICRO INCHES (BIT #5) 
4 

1795 000200 OFREV= 200 OFFSET NEGATIVE (REVERSE) (BIT #5) 

1796 002000 HCI= 2000 sHEADER COMPARE INHIBIT (BIT #10) 

1797 004000 ECI= 4000 ERROR CORRECTION CODE INHIBIT (BIT #11) 

is 010000 FMT22= 10000 FORMAT BIT (BIT #12 

1800 DESIRED CYLINDER ADDRESS (RHCA) (#12) 

1801 sEACH BIT 1S CALLED BY BIT NUMBER. 

1802 

1803 

1804 

1805 

1806 CURRENT CYLINDER ADDRESS (RHCC) (#13) 

1807 EACH BIT IS CALLED BY BIT NUMBER 

1808 

1809 

1810 

1811 

1812 SERIAL NUMBER REGISTER (RHSN) (#14) 

1813 sEACH IS CALLED BY BIT NUMBER 

1814 

1815 

1816 

1817 

1818 sERROR REGISTER #03 (RHERS) (#15) 

1819 

1820 000001 PSU= 1 sPACK SPEED UNSAFE (BIT #0) 


i 2 
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CZRIJD.P11 28-MAR-79 08:52 ERROR POINTER TABLE SEQ 0037 
1821 000002 VUF = 2 VELOCITY UNSAFE (BIT #1) 
1822 000010 UWR= 10 ;ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
1823 000020 PRE= 20 :DISK PACK ROTATION ERROR (BIT #4) 
1824 000040 ACL= 40 ZAC LOW (BIT #5) 
1825 000100 DCL= 100 ;0C LOW (BIT #6) 
1826 040000 SKI= ~- 40000 ;SEEK INCOMPLETE (BIT #14) 
34 100000 OCYL= 100000 sOFF CYLINDER (BIT #15) 
1829 
1830 
1831 sECC POSITION REGISTER (RHEC1) (#16) 
1832 ;EACH BIT 1S CALLED BY BIT NUMBER 
1833 
1834 
1835 
1836 
1837 sECC PATTERN REGISTER (RHEC2) (#17) 
1838 EACH BIT 1S CALLED BY BIT NUMBER 


CZRJJDO, RPOG/5/6 FCTNL CT 
9 08 


CZRJJD.P11 


002170 


002176 


002200 
002202 


002236 


002240 
002242 


002244 
002246 
002250 


28-MAR-7 


176722 
176702 
176704 
176710 


176700 
176714 


176720 


176750 
176752 


L 
5 


R2 
2 


m 3 
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REGISTER ADDRESSES SEQ 0038 


-SBTTL REGISTER ADDRESSES 


;RP04/5/6 DISK 1/0 REGISTERS LOCATED IN THE RH11 CONTROLLER 


;DATA BUFFER 

;WORD COUNT 

;BUS ADDRESS 

CONTROL AND STATUS 2 


1/0 REGISTERS LOCATED IN THE DEVICE CONTROL LOGIC (DCL) ‘ 


sCONTROL AND STATUS 1 
sERROR #1 

sDESIRED SECTOR/TRACK ADDRESS 
sERROR #2 

OFFSET 

sDESIRED CYLINDER ADDRESS 
sERROR #3 

sATTENTION SUMMARY 
sMAINTAINABILITY 

sDRIVE STATUS 

sDRIVE TYPE 

;SERIAL NUMBER 

sECC POSITION 

sECC PATTERN 

s;CURRENT CYLINDER ADDRESS 

; LOOK-AHEAD 


ZADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 


RHDB: 176722 
RHWC: 176702 
RHBA: 176704 
RHCS2: 176710 
:RP04/5/6 DISK 
RHCS1: 176700 
RHER1: 176714 
RHDST: 176706 
RHER2: 176740 
RHOF : 176732 
RHCA: 176734 
RHER3S: 176742 
RHAS: 176716 
RHMR: 176724 
RHDS1: 176712 
RHDT: 176726 
RHSN: 176730 
RHEC1: 176744 
RHEC2: 176746 
RHCC: 176736 
RHLA: 176720 
RHBAE: 176750 
RHCS3: 176752 


;BUS ADDRESS EXTENSION REGISTER 
:CONTROL AND STATUS REGISTER #3 


:P-CLOCK (KW11-P) 1/0 REGISTERS 


PCLCSR: 
PCLBUF : 
PCLCTR: 


172540 
172542 
172544 


sCONTROL AND STATUS REGISTERS 
;COUNT SET BUFFER 
; COUNTER 


N 3 
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CZRJJD.P11 28-MAR-79 08:52 GISTER ADDRESSES SEQ 0039 
1883 
1884 
1885 ;THE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTER SAVES 
1886 ;ANY TIME THERE IS AN ERROR ALL THESE WILL BE FILLED 
1887 ONLY SOME MAY BE PRINTED BUT ALL WILL BE FILLED TRUE 
‘eee ;FOR THE TIME JUST AFTER THE ‘‘ERROR'’ ERROR COMMAND 
1890 002252 000000 DB: 0 ;DATA BUFFER 
1891 002254 000000 wC: 0 ;WORD COUNT 
1892 002256 000000 BA: 0 ;BUS ADDRESS 
+ +4 002260 000000 (S2: 0 ;CONTROL AND STATUS 2 
1895 
1896 002262 000000 CS1: 0 ;CONTROL AND STATUS 1 
1897 002264 000000 ERI: 0 SERROR #1 
1898 002266 000000 DST 0 opty M critica ADDRESS 
1899 002270 000000 ER2 0 ERROR 
1900 002272 000000 OF : 0 sOFFS SET 
1901 002274 000000 CA: 0 ;DESIRED CYLINDER ADDRESS 
1902 002276 000000 ER3 0 TERROR #3 
1903 002300 000000 AS: 0 ;ATTENTION SUMMARY 
1904 002302 000000 MR: 0 :MAINTAINABILITY 
1905 002304 000000 DS1 0 :DRIVE STATUS 
1906 002306 000000 T: 0 DRIVE TYPE 
1907 002310 000000 SN: 0 ;SEKIAL NUMBER 
1908 002312 000000 EC] 0 ;ECC POSITION 
1909 002314 000000 EC2 0 ECC PATTERN 
1910 002316 000000 CC: 0 ;CURRENT CYLINDER ADDRESS 
as 002320 000000 LA: 0 ; LOOK -AHE AD 
1913 
1914 


a 


C 


ZRJJO.P 


002322 


002364 


002370 
003434 


000000 


000000 


000422 
000422 


08:52 


CERI 400, RP04/5/6 cm CTRLR2 MACYI1 oh 052) 
1 28-MAR-79 


GISTER 


25-MAY-79 
ADDRESSES 


FUNCTION EQUATES 


FUTABL: 
NOPERA: 
UNLOAD: 


READIN: 
ILLEGL: 


WRF ROM: 
REINTO: 


;*TABLE OF FUNCTIONS FOR RHCS1 THEN "'GO'' BIT HAS TO BE SET 


B 4 
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;NO OPERATION 

;UNLOAD (STAND BY) 
;RECALIBRATE 

;DORIVE CLEAR 

;RELEASE (DUAL-PORT OPERATION) 
; SEARCH COMMAND 

;WRITE CHECK DATA 

;WRITE CHECK HEADER AND DATA 
WRITE DATA 

WRITE HEADER AND DATA (FORMAT) 
READ DATA 

;READ HEADER AND DATA 

;SEEK COMMAND 

;OFFSET COMMAND 

;RETURNTO CENTERLINE 

;PACK ACKNOWLEDGE 

;READ IN 

;COMPUTED ILLEGAL FUNCTION 


7 *DATA BUFFER FOR READ WRITE 


-BLKW 
-BLKW 


274, 
274, 


;WRITE FROM THIS BUFFER 
;READ INTO THIS BUFFER 


SEQ 0040 


Te ie oo FCTNL CTRLR2 MACY) yt 052) 
CZRJ 28-MAR-79 


004500 


004506 


004510 


004512 
004562 
004564 


004566 
004571 
004574 


004576 
004616 
004620 
004622 
004624 


004626 
004630 


004632 


004634 


004636 
004640 


004642 


000000 


000000 


000000 


000024 
000000 
000000 


000010 
000000 
000000 
000000 
000000 


000000 
000000 


000000 


000000 


000000 
000000 


000000 


08:52 


002 
020 
200 


004 
040 


25-MAY-79 


GISTER ADDRESSES 


C 4 
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42 


;RESERVED LOCATIONS FOR FLAGS AND INTERNAL PROGRAM CONTROL WORDS 


SAVE REGISTER ADDRESS HERE 
;SAVE ERROR WORD NUMBER HERE 
; TEST NUMBER 

;CONTAINS ADDRESS OF LOCATION 
;WHERE AN RPO4 INTERRUPT IS TO VECTOR TO 


REGADR: 


RPGVEC: 


OFSTVL: 


SAVERE: 
FINALA: 
FINACC: 


oooo 


BLKW 


;THIS MUST BE MOVED INTO ‘"RPVEC* TO BE 


sEFFECTIVE. 
;OFFSET VALUE USED IN OFFSET TEST 


; BLOCK 


;SAVE LOOK AHEAD REGISTER AT END OF OPERATION 
;SAVE CURRENT CYLINDER REGISTER AT END OF OPERATION 


: TABLE FOR ATTENTION BITS 


ZATTENTION TABLE 
ATABLE: 


-BYTE 


1,2,4,10,20,40,100,200 


RESERVED LOCATIONS FOR UNIT SELECT 


;THIS IS FILLED WITH -1 
;UNIT UNDER TEST 
;NUMBER OF UNITS PRESENT 


NOUNIT: 
NUNIT: 


NOPUSH: 


-BLKW 
«WORD 
«WORD 


. WORD 


SELECT: . 
UNITSL: . 


ERFLG$: 0 


FIRST: 


RPO6: 
RH70: 


RUNCTR: 


. WORD 


o oo 


oo 


0 


;USED TO KEEP TRACK OF UNIT UNDER TEST 


TO SAVE REGISTERS 


;USED TO DETERMIN IF THERE ARE MORE 
; THAN ONE UNIT 


;ALL ONES INDICATE NONE OF THE OPERATOR 
INTERVENTION TESTE WILL BE PERFORMED 
;ALL_ONES INDICATE UNIT TO BE SELECTED 


;UNIT NO. SELECTED 


; ERROR 


;1F ZERO WILL TYPE HEADER 
;1F ONES WILL NOT TYPE HEADER 


:DEVICE TYPE FLAG 
sf od, 


. 


;"RUN' 
SWHILE 


FLAG 


PROGRAM 1S RUNNING ON AN RH70 
PROGRAM IS ON AN RH11 


LINE DELAY COUNTER TO BE USED 
THE SILO IS FILLING 


SEQ 0041 


CZRJIDO, A ead FCTNL pumyne MACY11 wer ittey: 


CZRJJD.P 28-MAR-79 0 


004644 
004646 
004650 


004652 


004660 


000000 


000000 . 


000000 
000000 


000000 


ATTENT: 


TOTALAT: 


SILOSZ: 


TMPO: 
TMP 1: 
TMP4: 
TMPS: 


0 


25-MAY-79 
REGISTER ADDRESSES 


. WORD 


«WORD 
«WORD 
- WORD 


oofcoo oO 


dD 4 
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sATTENTION BIT FOR PRESENT UNIT 
; TOTAL ATTENTION BITS 
;RH SILO SIZE 


; TEMP STORAGE 


; TEMP STORAGE 
; TEMP STORAGE 


SEQ 0042 


a RP04/5/6 FCIN 
P11 28-MAR-7 


JJD.P 


004662 


004716 


004722 
004722 


004724 


004740 
004744 


005050 


005056 


005112 
005114 


005140 


012737 


005037 


000005 


012706 


oo-ooooo°oo°0°oo 
NNNOO NNN 
WAIANAE tt 
SN 


— et © On tt at as os es 
MOMMY WUVIPRI PIPE PE Po Po ror 


ooCoooo COCCOCOCOoOOo 
NNNROW! PON NO 


L CTRLR2 
9 08: 


LR 
52 


177777 
004626 


177777 
004624 


004626 
004624 


001100 
001140 
001000 
036624 


005050 


000004 


005124 


000176 
000174 
000004 


MACY11 30A(1052) 


004624 


004626 


000020 


174026 


001140 
001142 


~SBITL 
~SBTTL 
- SBTTL 


~SBTTL 


BEGINI: MOV 
CLR 


BR 
BEGIN2: MOV 
CLR 
BR 
BEGIN: CLR 
CLR 


START: 
RESET 


E—E 4 
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SEQ 0043 


#** DIAGNOSTIC CODE *** 


SETUP TESTS 


#-1,a#NOPUSH ; JUMP OVER OPERATOR REQUIRED TESTS 


@#SELECT :D0 NOT SELECT UNIT 

START 

#-1,aM#SELECT >SELECT UNIT 

saan ;D0 NOT JUMP OVER ANY TEST 
@#SELECT ;D0 NOT SELECT UNIT 
@#NOPUSH ;DO0 NOT JUMP OVER ANY TEST 


;NORMAL RUN 


-SBTTL INITIALIZE THE COMMON TAGS 
7;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV 


#SCMTAG RO ;:FIRST LOCATION TO BE CLEARED 
(R6)+ >;CLEAR MEMORY LOCATION 
WSWR,R6 ;; DONE? 

-6 ;;LOOP BACK IF NO 

WSTAC K,SP ;;SETUP THE STACK POINTER 


js INITIALIZE A FEW VECTORS 


#SSCOPE ,a#IOTVEC 41a VECTOR FOR SCOPE ROUTINE 
#340, as iOTVEC+2 3; LEVE 

#SERROR, Q#EMTVEC ae VECTOR FOR ERROR ROUTINE 
#340, aWEMTVEC+2 ti; LEVEL 7 
#STRAP, as TRAPVEC shyt VECTOR FOR TRAP CALLS 
#340, a#TRAPVEC#2; LEVEL 7 
#SPWRON ,a#PWRVEC :;POWER FAILURE VECTOR 
#340, ,a#PWRVEC+2 ;;LEVEL 7 


STIMES >; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE ie CLEAR THE ESCAPE ON ERROR ADDRESS 

#1, SERMAX ;ALLOW ONE ERROR PER TEST 

ys , SLPADR SSINITIALIZE THE LOOP ADDRESS FOR SCOPE 
, SLPERR ;;SETUP THE ERROR LOOP ADDRESS 


;: SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT 1S 
;;EQUAL TO A ‘'=1"', SETUP FOR A SOFTWARE SWITCH REGISTER. 


64$: MOV 
65$: MOV 
66$: MOV 


A#ERRVEC,-(SP) ;;SAVE ERROR VECTOR 
#645, aHERRVEC +3SET UP ERROR VECTOR 


#DSWR,SWR ;SETUP FOR A HARDWARE SWICH REGISTER 
#DDISP DISPLAY 3 SAND A HARDWARE DISPLAY REGISTER 
#-1,aSWR TRY TO REFERENCE HARDWARE SWR 
66% ::BRANCH IF NO TIMEOUT TRAP OCCURRED 


7;AND THE HARDWARE SWR 1S NOT = -1 


65$ BRANCH IF NO TIMEOUT 
#65$, (SP) >:SET UP FOR TRAP RETURN 

#SWREG, SWR ::POINT TO SOFTWARE SWR 
#DISPREG, DISPLAY 


(SP)+,@MERRVEC ;;RESTORE ERROR VECTOR 


F 4 
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CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 
CZRJJD.P11 28-MAR-79 08:52 INITIALIZE THE COMMON TAGS SEQ 0044 
2070 
2071 
2072 
2073 005144 012737 000000 177776 MOV #0,PS ;SET P wotiire STATUS TO 0 
2074 005152 012737 000200 000036 MOV #200 ,a#TRAPVEC+2 ; TRAP PRIORITY = 4 
2075 005160 013700 002166 MOV a#RPVEC,RO ;GET RP VECTOR " ADDRESS 
2076 005164 012720 036534 MOV MRPVECT,(RO)*  ;THIS 1S FOR UNTIMELY INTERRUPTS 
2077 005170 012710 000340 MOV #340, (RO) ;RPO4 INTERRUPT SERVICE ROUTINE 
or ;PRIORITY = 
2080 005174 004737 037562 JSR PC ,a#STKINT ; INITIALIZE THE TTY KEYBOARD 
2081 005200 005737 004634 TST a#FIRST 1S THIS FIRST TIME ROUND ? 
2082 005204 001001 BNE 1$ ;00 NOT GIVE HEADER IF NOT 
2083 005206 000402 BR 2% ;GIVE HEADER IF SO 
Se 005210 000137 006020 1$: JMP @*SND1 SKIP OVERALL PROGRAM HEADER 
2086 005214 2$: 
2087 005214 104401 005222 TYPE , 68% ty ASCIZ STRING 
2088 005220 000455 BR 67% ;GET OVER THE ASCIZ 
2089 3;68%: .ASCIZ 215><12>7RP06/5/6° FUNCTIONAL CONTROLLER TEST, PART II] = CZRJJ-D? 
2090 005314 67$: 
2091 005314 104401 005322 TYPE , 70% is TYPE ASCIZ STRING 
2092 005320 000434 R 69% ;GET OVER THE ASCIZ 
2093 3;70$: .ASCIZ <15><12>/ALL DCL'S UNDER TEST must BE LOCKED ON CORRECT PORT/<15><12> 
pode, 005412 698: 
2096 005412 104401 005420 TYPE .72$ : 3 TYPE ASCIZ STRING 
2097 005416 000424 R 71$ ;GET OVER THE ASCIZ 
2098 3772$: .ASCIZ <15><12>/PROGRAMMABLE DRIVES WILi NOT BE USED/ 
2099 005470 718: 
2100 005470 104401 005476 TYPE 74% ie TYPE ASCIZ STRING 
2101 005474 000433 R 73$ GET OVER THE ASCIZ 
2102 3374: .ASCIZ <15><12>/IF CHANGES ARE REQUIRED ON PORT SWITCH, A CYCLE UP/ 
2103 005564 73$: 
2106 005564 104401 005572 TYPE 76% i 2 TYPE ASCIZ STRING 
2105 005570 000436 BR 75% ;GET OVER THE ASC1Z 
2106 3;76$: .ASCIZ <15><12>/SEQUENCE I$ REQUIRED FOR STROBING THE PORT SELECT FLOP/<15><12> 
$24 005666 75$: 
2109 005666 104401 005674 TYPE . 78% ia TYPE ASCIZ STRING 
2110 005672 000430 R 77$ ;GET OVER THE ASCI2Z 
2111 33788: .ASCIZ <15><12>/ALL DCL'S NOT UNDER TEST MUST BE SWITCHED OFF/ 
2112 005754 77$: 
2113 005754 104401 005762 TYPE 80% ie TYPE ASCIZ STRING 
2114 005760 000417 BR 79% GET OVER THE ASCI2Z 
2115 ;;80$: .ASCIZ <15><12>/0R LOCKED ON THE OTHER PORT/ 
He 006020 79%: 
sre 006020 012737 177777 004634 SNDI1: MOV #-1,a#F RST NEXT TIME DO NOT GIVE HEADER 
211 
2120 - SBTTL 1 VALUE FOR SOFTWARE ene REGISTER 
2121 006026 0057357 000042 TST a#Ke ;;ARE WE RUNNING UNDER XXDP/ACT? 
2122 006032 001006 BNE 64% ;BRANCH IF YES 
2123 006034 023727 001140 000176 CMP SWR,#SWREG : SOFTWARE SWITCH REG SELECTED? 
2124 006042 001005 BNE 65% ;BRANCH IF NO 
2125 006044 104406 GTSWR SIGET SOFT=SWR SETTINGS 


G 4 
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CZRJID.P11 28-MAR-79 08:52 GET VALUE FOR SOFTWARE SWITCH REGISTER SEQ 0045 
2126 006046 000403 BR 65% 
2127 006050 112737 000001 001134 64$: MOVB #1, S$AUTOB 3;SET AUTO-MODE INDICATOR 
gics 000056 65%: 
2130 006056 032777 019000 173054 RH70CK: BIT WSW12,aSWR ;LOOK 10 see IF USING RH70 
2131 006064 001403 BEQ 3$ s1F Swi2 = 0, SKIP NEXT 
2132 006066 012737 000001 004640 MOV #1,a#RH70 :1F SWwi2 = 1, CU IS AN RH70 
2133 006074 3$: 


H 4 
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9 GET VALUE FOR SOFTWARE SWITCH REGISTER 


Pp eeeeeeeeeererereeeerererertererereeteeeeeeeeeeretereeeeeeenenes 
:*1S THERE A P-CLOCK (KW11-P) ON THE SYSTEM ? 

:*1F SO MAKE ‘WAT’ TRAPS GO TO ‘WAIT.P' 

:*1F SO MAKE RPO4 INTERRUPTS GO TO ‘TIME 1° 

:*1F NOT MAKE ‘WAT’ TRAPS GO TO ‘WAIT.T' 

>*1F NOT MAKE RPOG INTERRUPTS GO TO ‘TIME 2° 


;*THE NEXT LINE IS TO BE ADDED LATER 
;*AND THE JUMP AND NOP REMOVED 
;*FOR NOW NO CLOCK WILL BE USED 


CZRJJD. 


144 


= 
PP at 
NOW 


PROPRIO PO PIAPIADG PANGAN PY PSP PS PEDRO PE PIPE MIPS POPS POPPY POPU RSME POPE PE PE Pfeffer 


a ee ee ee ee ee SL Le Le eee ee ee ee ee 
NNN NNN NNSA OA AAAAAAS AMMAN NMMNMNMNNWNE 
ONC VEWH OO OONC VFWNR—OOOACYFWH—-OvW®w 


pry 


006074 
006102 


006110 
006114 


006116 
006122 


006174 


006206 
006212 
006214 


28-MAR-7 


001403 
013737 


08:52 


033526 004506 
177777 =041170 


004626 


006124 


177770 
004616 
004630 


004630 004616 


:1$: 


> *MOV 


JMP 
NOP 
TST 


MOV 
MOV 


BR 
MOV 


Q#iS,aMERRVEC ;SET TIME-OUT VECTOR 
aris ;00 NOT USE CLOCK 


aAPCLCSR REFERENCE P-CLOCK STATUS REGISTER 
;ADDRESS = 172540 

WWAIT.P,QM#S$TRPAD+20 ; THERE IS A P-CLOCK 

MTIME1,@#@RPGVEC ; THERE 1S A P CLOCK SO 

»$ :VECTOR TO TIME) 


MWAIT.T,@#$TRPAD*+20 ; THERE 1S NO P-CLOCK 


speeeeeeeererererereeeterererereeeeeeeeeeeKeRaeeRaeeReeneeeneeeee 


2s: 


33658: 
64%: 


MOV 
MOV 


TST 


MTIME2 ,QMRPGVEC ;MAKE RPO4/5/6 INTERRUPTS GO TO "TIME 2° 
#-1,a#PRITEM ;CLEAR PREVIOUS ITEM NUMBER 


OWSELECT WAS IT A 200 START 
TS11 ;BRANCH IF STARTING FROM 200 
,605$ 7: TYPE ASCIZ STRING 


64% :;GET OVER THE ASCIZ 
<15><12>/SELECT UNIT NUMBER TO BE TESTED ? /<15><12> 


#177770,(SP) sONLY KEEP LAST 3 BITS 


(SP) ,@#UNIT ;SAVE UNIT TO BE TESTED 
(SP)+,@#UNITSL ;SAVE UNIT TO BE TESTED 
TST ;BRANCH IF STARTING FROM 200 


Q@#UNITSL,@#UNIT ;SET UNIT NUMBER 


SEQ 0046 


CZRJJ00, SS eat * AS CTRLR2 


CZRJJD.P 


POPE MPM MPEP PPI POP PoP nfo ror nnn 
ee 


TRS wee a er as es 


Mmrewr 


006222 
006224 


006232 


006240 
006244 


006252 
006260 


006326 


006330 
006334 


006414 
006414 
006420 
006422 
006424 


006430 


006516 


006546 
006546 


28-MAR-79 


000004 
012737 


012737 


012706 
012737 


012737 
012700 


032777 
001036 


104401 
000427 


012746 
104402 
000000 
000137 


012737 


000413 


000417 
022626 
104401 
000413 


012737 


08:52 


000001 
000001 


001000 
041032 


006300 


000024 
002170 


000006 
177776 
020000 


006336 


000204 


033016 


006510 
004640 
173572 
004640 
006460 


006520 


041022 


MACY11 30A(1052) 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


speeeereeeeeeeeeeteeeeteeeeeeeetettettrrreekKeAKeeeree eee 


;*TEST 1 


REFERENCE EACH REGISTER 
REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 


Week eeeeeteeeeeeeeeeeereteteteeeeeeeeeteeeteeteeekeeeereeaeteeeee 


TST1: 
001212 
004504 


000030 
000004 


000004 2%: 
001200 
172612 


37658: 
64$: 


4$: 
000004 38: 


37678: 


66%: 
TRP: 


37658: 
$: 


64$: 
000050 RIN: 


SCOPE 
MOV 


#1,STIMES ;;D0 1 ITERATION 
#2-1,a#TSTNM ; THIS SAVES TEST NUMBER 
MSTACK, SP ;SET UP STACK POINTER 


WREGSA1 ,aWEMTVEC:ERROR VECTOR SO THAT 
NO REGISTERS ARE SAVED 
#2% ,a#ERRVEC ;SET UP FOR BUS TIMEOUT 


#24,R0 ; THERE ARE 24 REG TO TEST 

#RHDB,RI ;R1 NOW HAS ADDR OF ADDR OF FIRST REG. 
a(R1)+, R2 ;READ 4 ee REG. 

RO ; COUNT DOWN 

1$ : BRANCH IF 24 ol DONE 

3$ RANCH IF 24 D 

WERRVEC#2, aWERRVEC rigte: TRAPS CATCHER 

(SP)+,(SP)4 ;CLEAN STACK- 


=2(R1), $TMP1 :STORE FAILING REG ADDR 


7 REGISTER NON EXISTANT 
#SW13,aSWR ; INHIBIT ERROR PRINTOUT ? 
4% ;BRANCH IF YES 

oy ahs ASCIZ STRING 


64% ;GET OVER THE ASCIZ 
<15><12>/T0 CHANGE BASE ADDRESS, RESTART AT ADDRESS / 


#ADDMOD ,- (SP) ;GET READY TO TYPE STARTING ADDRESS 
;OF ‘CHANGE OF BASE ADDRESS" ROUTINE 


a#SEOP ;GO TO END OF PROGRAM ----------- > 
#WTRP a4 INITIALIZE VECTOR 
RH70 INIT RH INDICATOR ++ CW 
@RHBAE ;ADDRESS RPBAE(RH11/RH70?) 
RH70 FOUND AN RH70-SET MASK 
,67% ie TYPE ASCIZ STRING 

66% GET OVER THE ASCIZ 
215><12>/RH70 CONTROLLER = / 
RIN ;GET OUT 
(SP)+,(SP)+ atte THE STACK 
5638 TYPE ASCIZ STRING 


GET OVER THE ASCIZ 
OTS ct2>/RH11 CONTROLLER / 


WSERROR ,QWEMTVEC; RESTORE ERROR VECTOR 


SEQ 0047 


J 4 
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CZRJJD.P11 28-MAR-79 08:52 11 REFERENCE EACH REGISTER SEQ 0048 
2235 :$0 THAT REGISTERS ARE SAVED 
see 006554 012737 000006 000004 MOV WERRVEC+2,QWERRVEC ;RESTORE TRAP CATCHER 
3tt FIND THE SILO SIZE 
2240 006562 004737 033314 JSR PC, aeCLDISK sCONTROLLER CLEAR 
2241 006566 005037 004650 CLR SILOSZ :CLEAR SILO COUNTER 
2242 006572 013777 004650 173370 138: MOV S1LOSZ, @RHDB :LOAD SILO 
2243 006600 005237 004650 INC SILOSZ sKEEP COUNT 
2244 006604 032777 000100 173364 BIT WIR, @RHCS2 :1S THE SILO FULL? 
2245 006612 001367 BNE 13$ sBRANCH IF NO 
2246 006614 012737 000412 015570 MOV #266., VARI sVAR1 IN TEST 15 
2247 006622 163737 004650 015570 SUB SILOSZ, VARI 
2248 006630 005437 015570 NEG VARI 
2249 006634 013737 015570 023336 MOV VARI,  VAR3 :VAR3 IN TEST 25 
2250 006642 012737 002370 015600 MOV #WREROM, VAR2 :VAR2 IN TEST 15 
2251 006650 063737 004650 015600 ADD SILOSZ, VAR2 
2252 006656 063737 004650 015600 ADD SILOSZ, VAR2 
2253 006664 013737 015600 023346 MOV VARZ,  VARG sVARG IN TEST 25 
2254 006672 022737 000406 004650 CMP #262.,S1L0SZ sRH70C? 

2255 006700 001003 BNE 208 “BRANCH IF NO 
2256 006702 012737 000001 015616 MOV ai, VARS=4 VARS IN TEST 15 
2257 006710 004737 033314 208: JSR PC, aarLDISK =CONTROLLER CLEAR 
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CZRJJD.P11 28-MAR-79 0 REFERENCE EACH REGISTER SEQ 0049 
2258 
2259 pp eeeeeeeereereeereeereeeerereeeereteeree teeter teeeeneeeeAAe eee 
$sey *TEST 2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT 
scot 3 CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 
2264 pp eeeeeeeeeeererererereereterertrerteeteeeeeeeeeeeeeeeeenenenee ee 
2265 006714 000004 TST2: SCOPE 
2266 006716 012737 000001 001212 MOV #1,STIMES ::D0 1 ITERATION 
seer 006724 012706 001000 MOV @STACK,SP :SET STACK POINTER 
2269 006730 013701 002216 MOV Q#RHAS,R1 :R1 HAS ADDRESS OF RHAS 
2270 006734 012711 177777 MOV #-1,aR1 WRITE ALL ONES INTO RHAS 
ser) 006740 105711 TSTB ari TEST IT FOR ALL O'S 
ere 006742 001407 BEQ TST3 BRANCH IF GOOD 
2275 006744 011137 001126 MOV aR1,a#$BDDAT BAD DATA 
2276 006750 005037 001124 CLR a#SGDDAT :GOOD DATA 
2277 006754 010137 004500 MOV R1,a#REGADR :FAILING REG. RHAS 
2278 006760 104005 ERROR 5 :RHAS DOES NOT CLEAR BY WRITING ALL 
2279 :ONES INTO IT 


L 4 
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51 
CZRJJO.P11 28-MAR-79 08:52 T2 PARTIAL TEST OF RHAS FOR UNIT NUMBERS PRESENT SEQ 0050 
2281 
2282 ppeeeeererrrerereeereretereerereerreretere AKA A Kee TAKARA KAA 
3H *TEST 3 TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
2285 he THE NUMBER OF RPO4/RPO6 DRIVES PRESENT IS FOUND 
2286 :* BY MOVING ALL ONES INTO RHER1 WITH UNIT NUMBER 
3544 i* IN RHCS2 INCREMENTED FROM ZERO TO SEVEN. 
$oop if THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT. 
2291 3° THE DRIVE TYPE IS CHECKED TO BE RPO4 OR RPO6 AND 
5343 3 UNITS PRESENT ARE STORED IN A TABLE CALLED ‘UNITS’ 
2294 speeeeeeeeeeeeeeeeeeeeereeeeeteneretereeeKKAtKeKAteeee eee eee eee ee 
2295 006762 000004 TST3: SCOPE 
534) 006764 012737 000001 001212 MOV #1,STIMES 3:00 1 ITERATION 
2298 
344 006772 012737 000003 004504 MOV #4-1,a4TSTNM sTHIS SAVES TEST NUMBER 
2301 007000 000005 RESET ;START WITH AN INIT 
toy) 007002 004737 037562 JSR PC ,aa#STKINT sINITILIZE THE TTY KEYBOARD 
2304 007006 032777 020000 172124 BIT #SW13,aSWR : INHIBIT ERROR TYPEOUT? 
2305 007014 001026 BNE 4% :BRANCH IF YES 
2306 007016 104401 007024 TYPE ,05$ 3 TUR ASCIZ STRING 
2307 007022 000423 BR 64$ :GET OVER THE ASCIZ 
2308 33658: .ASCIZ £15><12><15><12>/L OOKING AT RHAS = DRIVES PRESENT/ 
2309 007072 64$: 
2310 007072 013701 002216 4$: MOV A#RHAS,R1 :R1 HAS ADDR. OF RHAS 
2311 007076 013702 002176 MOV a#RHCS2,R2 :R2 HAS ADDR. OF RHCS2 
2312 007102 005012 CLR aR2 sCLEAR RHCS2 
2313 007104 012700 000010 MOV #8. ,RO : COUNT 
2314 007110 013704 002202 MOV AMRHER1, RS :R4 HAS ADDR. OF RHER1 
2315 007114 012714 177777 1$: MOV #-1,aR4 :MOVE ERRORS INTO RHER1 
2316 007120 005212 INC aR2 : INCREMENT UNIT NO. 
2317 007122 005300 DEC RO ; COUNT 
2318 007124 001373 BNE 1$ :BRANCH IF 8 NOT DONE 
2319 007126 111137 004646 MOVB OR1,a#TOTALAT  ;SAVE TOTAL ATTENTION 
2320 [USED IN DRIVE CLEAR TEST 
2321 007132 105037 004647 CLRB Qa#TOTALAT+1 CLEAR UPPER BYTE 
2322 007136 105711 TSTB ari : TEST FOR ANY DRIVES PRESENT 
2323 007140 001402 BEQ 2$ :1f NONE THERE = SAY SO 
$3Se 007142 000137 007524 JMP XE2 ;SOME THERE - LOAD TABLE 
2326 007146 032777 020000 171764 2%: BIT #SW13,aSWR : INHIBIT ERROR TYPE OUT? 
2327 007154 001402 BEQ 3% sBRANCH IF NO 
2328 007156 000137 010126 JMP SELTST :CHECK FOR SELECTED UNIT START AND LOAD 
344 s"UNITS' TABLE WITH DESIRED DRIVE IF SO 
2331 007162 3$: 
2332 007162 104401 007170 TYPE ,o7$ i TYPE ASCIZ STRING 
2333 007166 000421 ue 66% GET OVER THE ASCIZ 
2334 3:67$: .ASCIZ oF soc l2o<t$ocl2>7i0 DRIVES PRESENT = RHAS = 0/ 
2335 007232 66%: 
2336 007232 104401 007240 TYPE 69% s; TYPE ASCIZ STRING 
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2337 007236 000430 

2338 -69$: 
2339 007320 abs: 
2340 007320 104401 007326 

2341 007324 000430 


2343 007406 708: 
2344 007406 104401 007414 

2345 007412 000442 

2347 007520 


2349 007520 000137 033016 


2354 007524 XE2: 


2355 007524 2700 000010 2$: 
2356 007530 2703 004576 
2723 (177777 3$: 
5300 
1374 


360 007544 012703 004576 


2362 007552 005037 004620 

2363 007556 012700 000010 

2364 007562 011137 001176 

2365 007566 006037 001176 4$: 
2366 007572 103135 


2368 007574 010577 172376 
2369 007600 022777 024020 172416 


2371 007610 022777 020020 172406 
2372 007616 001421 


2375 007620 022777 024021 172376 
2376 007626 001415 
2377 007630 022777 020021 172366 
2378 007636 001411 
2380 007640 022777 024022 172356 


2382 007650 022777 020022 172546 

2385 007662 032777 001000 172332 7%: 
386 

2388 007674 104401 001225 8$: 


2391 007704 104401 057420 
007710 000466 
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BR 68% 

-ASCIZ o18><12>/WRIT ING. ONES INTO RHER1 FOR ALL UNIT NUMBERS/ 
BR 0$ GE 

LASCIZ <15><12>/D0ES NOT’ SET ANY BIT IN RHAS SO ABORT PROGRAM/ 


2342 33718: 


BR 2$ ;GET ASCIZ 
2346 aioe LASCIZ <15><12>/T0 LOOP ON THIS TEST WO PRINTOUT SET SWITCHES 13,8,1 & O<15><12 


MOV #8. ,RO 
MOV WUNITS,R3 


MOV #-1,(R3)+ 

DEC RO ; COUNT 

BNE 3$ :BRANCH IF 8 NOT DONE 
MOV #MUNITS,R3 ;POINTER 

CLR R 


MOV #8. ,RO ; COUNTER 
MOV aR1 ,aaSTMPO 
ROR aasTMPo 

BCC 5% 

MOV R5,aRHCS2 
BEQ 7$ ; TYPE THE UNIT NO. IF YES 
BEQ 7% ; TYPE UNIT NO. IF YES 


2374 p[eteeeeereerrrererererererereererereetereeeteeeneneeHHeeeHENeEES 


BEQ 7% :TYPE UNIT NO. IF SO 
cmp #20021, aRHDT TSINGLE PORT RPOS ? 
BEQ 7$ ; TYPE UNIT NO. IF SO 
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TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


;;GET OVER THE ASCIZ 





SEQ 0051 


TYPE 71$ +s TYPE ASCIZ STRING 


T OVER THE ASCIZ 


4o bby ASCIZ STRING 


TYPE 73% 
7 OVER THE 


JMP awSEOP :G0 OUT ------------------------- > 
;*SET UP THE UNITS TABLE 


fo rabh ie 
POINTER 
stoke BLOCK TO ALL ONES 


CLR @#NOUNIT ;NO. OF UNITS PRESENT 

; TEMPORARY STORAGE 

SET CARRY IF ONE IN 0O BIT 

;CHECK NEXT UNIT IF ONE NOT IN BIT 0 


; INSERT UNIT NUMBER INTO UA BITS 
cmp #24020, @2HDT ;1S THIS A DUAL PORT RPO4 ? 


CMP #2002. WHDT 71S THIS A SINGLE PORT RPO4 ? 


CMP #24021, @RHDT ;DUAL PORT RPOS ? 










CMP #24022 ,aRHDT :1S THIS A DUAL PORT RPO6 ? 
BEQ 7$ ;TYPE THE UNIT NO. IF SO 

CMP #20022, aRHD! 71S THIS A SINGLE PORT RPO6 ? 
BEQ 7$ ; TYPE UNIT NO. IF SO 


BR i} 

BIT #B11T09, A@RHDS1 ;1S THE DRIVE PROGRAMMABLE? 

BNE 8$ ;BRANCH IF YES 

BR 6$ 

TYPE ,SCRLF 

MOV R5, -(SP) 

TYPDS sTYPE THE DRIVE NUMBER 

bey ~~ SREPORT THIS DRIVE WILL NOT BE USED(DRIVE MUST BE LOCKED 
8 
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007712 


00; "42 
007716 


007740 


007750 
007766 
007766 
007772 
007774 
010000 


010046 
010046 


010050 


010060 


010126 
010132 
010134 


28-MAR-79 


104401 
000410 


010546 
104405 
104401 
000406 


017746 
104402 
104401 
000422 
000407 


010523 


005237 


005205: 


005300 
001235 


005737 


001002 
000137 


013737 
013737 
005337 
005737 
001403 


013737 


08:52 


007720 


007752 


172232 
010002 


001223 


004620 


004620 
033016 


004576 004616 
004620 004622 
004622 


004626 


004630 004616 


9$: 
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TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 


sp eteeeeerererererererererereretererererereKeKerArereeeeee eee eee 


33658: 
643: 


33678: 
66$: 


3;69$: 
68$: 


6$: 


5$: 


10$: 


SELTST; 


TYPE 
BR 
-ASCIZ 
MOV 
TYPDS 
TYPE 
BR 
-ASCIZ 
MOV 
TYPOC 
TYPE 


BR 
-ASCIZ 


it tg 7s TYPE ASCI1Z STRING 
GET Barn THE ASCIZ 
ois><l2>sunlt NUMBER / 


R5,-(SP) ;GET READY TO TYPE UNIT NUMBER 
,07$ TYPE ASCIZ STRING 
668 GET OVER THE ASCIZ 
/, RHDT = / 
@RHDT,-(SP) ;GET READY TO TYPE RHDT 
,69$ i TYPE ASCIZ STRING 
688 T OVER THE ASCIZ 
Oe NOT AN RPO4/RPOS/RPOG DEVICE !!? 
5$ ;NO RPO4/RPOS/RPO6 FOUND SO INCR TABLE 
R5,(R3)¢ 
»SCRLF 
R5,-(SP) 
;TYPE DRIVE NO. 
@#NOUNIT :NUMBER OF DRIVES 
Be ;INCR UNIT NUMBER 
~ eas ;DECR NO. OF UNITS LOOKED AT 
* Byes ;TEST THE NEXT UNIT 
@#NOUNIT ;1F THERE ARE ANY UNITS... 
10$ ; CONT INUE 
a#SEOP ELSE GO TO END OF PASS 


Q#UNITS,Q#UNIT ;SET UNIT NO. 10 FIRST ONE FOUND/OR 0 
Q@#NOUNIT,Q#NUNIT ; SAVE NO. OF UNITS 


O#NUNIT 71F NUNIT = 0 THEN ONLY ONE UNIT 

7 1f NUNIT > 0 THEN MORE THAN ONE UNIT 
O#SELECT ;STARTING ADDRESS 200 ? 
TS14 BRANCH IF STARTING FROM 209 


Q@#UNITSL,QMUNIT ;SET UNIT NUMBER 


SEQ 0052 
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010176 
010202 


010222 
010226 


010412 


005037 
005737 


005737 
001006 


012700 
005720 


022710 
001065 


104401 
0004 34 


104401 
000421 


000001 
011044 


001000 
000004 


033314 


004644 
004616 


000041 
000011 


004626 


004576 


177777 


010252 


010350 


001212 
001106 


004504 


30A( 1052) 
13 


TeTEST & 


1S14: 


19$: 


37658: 
64$: 


; 3678: 
66$: 





SE SS AE RS en ee a et ee 
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TEST FOR DRIVES PRESENT USING RHAS AND RH(S2 SEQ 0055 | 


TYPE SERIAL NUMBER AND DRIVE TYPE 


SET APPROPRIATE ATTTENTION BIT OF UNIT UNDER TEST IN ‘ATTENT' 
TYPE UNIT UNDER TEST 


READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 


TYPE THEM OUT AND PROCEED 


TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON 
SWITCHES 0 THRU 7 AND RESTART 


eererereteretereraereretereteeteeteneeeneneneneeeteeetetenetene 


SCOPE 
MOV #1, STIMES ;;D0 1 ITERATION 
MOV #1$,$LPADR ;;SET SCOPE LOOP ADDRESS 
MOV WSTACK SP RESET STACK 
MOV #4 ,a8TSTNM ;SAVE TEST NUMBER 
JSR PC ,a#CLDISK ;SET R1I-RHCS1, R2-RHCS2 
:R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 
CLR O#ATTENT ;CLEAR UNIT UNDER TEST ATTENTION 
TST aaUNIT :1S THE "‘UNIT'’ = 0 ? 
BNE 20% ;1F NOT, SKIP NEXT MODS 
MOV #41,R0 ;1F SO, CHECK THE LOAD MEDIA LOCATION 
CMPB #11, (RO) ;WAS IT AN RPO04/5/6 ? 


BNE 20$ ;1F NOT, GO AHEAD AND TEST UNIT #0 
TST @#SELECT WAS UNIT #0 SELECTED ? 

;(1E. 210 START ?) 
BNE 19$ ;1f SO, CHANGE PACK 


;*INCREMENT THE UNITS TABLE TO NEXT DRIVE (IF ANY) 
:*8 DECREMENT ‘'NOUNITS'’ PRESENT TO BE TESTED 


MOV #UNITS,RO ;1F NOT, LOAD THE UNITS are POINTER 
TST *(RO)+ TSELECT THE NEXT UNIT IN TABLE 
; (DOUBLE INCREMENT THE POINTER, RO) 
CMP #-1, (RO) 31S THERE ANOTHER TABLE ENTRY PRESENT ? 
BNE 18% TIF SO, USE NEXT DRIVE & DECR ‘'NOUNITS” 
lf NOT, CHANGE PACK ON UNIT #0 


TYPE ,605$ ie TYPE ASCIZ STRING 
BR 64% ;GET OVER THE ASCIZ 
-ASCIZ Ot 5><120¢15><12> 761 SROUNT PACK FROM UNIT #0 AND MOUNT A SCRATCH PACK/ 
TYPE ,67% Hh ASCIZ STRING 


BR 66% GET OVER: THE ASCIZ 
sASCIZ <15><12>/PRESS CONTINUE WHEN FINISHED/<15><12> 








CZRJJDO, RPO4/5/6 ay CTRLR2 MACYI1 —e 
CZRJID.P11 28-MAR-79 08:52 


010412 000000 
010414 000404 


010416 011037 
010422 005337 


010426 013700 


004616 18$: 
004620 


004616 208: 


005037 004636 
171534 


024022 
020022 


171554 
171544 


1 

2 

? 

012737 177777 004636 2%: 
7 010472 38: 
8 

9 

0 

1 

2 

3 


116037 
104401 
000414 


004566 004644" 


010506 


2525 


013746 004616 


010552 
000410 

171430 
010606 


017746 
104402 
104401 
000410 

3373: 

72%: 
017746 171372 
104402 


™m 
wu 
Nm 
o 
ooc OCOOCOCOOoO CCOoOOoOoO coo 


at. “MAY-79 


HALT 
BR 


MOV 
DEC 


me: 
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—E SERIAL NUMBER AND DRIVE TYPE 
20% CONTINUE, USING SCRATCH PACK ON UNIT #0 
(RO) ,@#UNIT ;SET UP NEW UNIT UNDER TEST 
@#NOUNITS :DECR BECAUSE UNIT #0 WON'T BE TESTED 
Q#UNIT,RO ;RO NOW CONTAINS UNIT NO 


MOV 


MOVB 
TYPE 


BR 
-ASCIZ 
MOV 
TYPDS 
TYPE 
BR 
eASCIZ 
MOV 
TYPOC 
TYPE 
BR 
-ASCIZ 


MOV 
TYPOC 


Peeeeeeeee eee Kee ATA HAA TAA A ATTA HAKATA KAKA ATH AKAAAAHAAAAAAe 


aa#RP06 ;CLEAR RPO6 DEVICE TYPE FLAG 
RO,@RHCS2 ;SET UP UNIT ADDRESSING 
#24022 ,aRHDT :DUAL alt vy ? 

2$ YES..SET F 

#20022 ,aRHDT : SINGLE PORT *RPO6 ? 

2$ YES,..SET FLAG 

3$ DON! T SET RPO6 FLAG 
#-1,a#RP06 ;SET THE FLAG 


;ASSUME THE NEXT UNIT IS AN RPO4/RPOS 


pp eteeeeeeeererrereretetentererereeteeeeeeKeeeeAAeeKeeAKeee eee 


; SET 9 Ttaina ATTENTION BIT 
PE ASCIZ STRING 

688 ;GET OVER THE ASCIZ 

£15><12>/T ESTING DRIVE NUMBER/ 


Q#UNIT,-(SP) ;UNIT NO. TO STACK 
;TYPE DRIVE NO. 
71% 7: TYPE ASCIZ STRING 
70% 3;GET OVER THE ASCIZ 
<15><12>/SERIAL NO. = / 


@RHSN,-(SP) :;SAVE @RHSN FOR TYPEOUT 

3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
,73$ ii TYPE ASCIZ STRING 
72% :GET = THE ASCIZ 
<15><12>/DRIVE TYPE = 


@RHDT,-(SP) 7;SAVE @RHDT FOR TYPEOUT 
3:G0 TYPE--OCTAL ASCII(ALL DIGITS) 


ATABLE (RO) ,@#ATTENT 


SEQ 0054 


dD 5 
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56 
CZRJJD.P11 28-MAR-79 08:52 14 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0055 
2540 
2541 ;*TYPE OUT THE DRIVE TYPE IN ASCII 
2542 
2543 
2544 peeeeeerrerrerereteretereeeereterereteeeeeeeeeeneteereneeneere 
2545 010634 022777 024020 171362 CMP #24020, aRHDT ;DUAL PORT RPO4 ? 
2546 010642 001424 BEQ 4$ TYPE ASCII MESSAGE OUT 
2547 010644 022777 020020 171352 CMP #20020, aRHDT SINGLE PORT RPO4 ? 
$309 010652 001420 BEQ 4$ ; TYPE THE MESSAGE 
2550 010654 022777 024021 171342 CMP #24021, @RHDT ;DUAL PORT RPOS ? 
2551 010662 001433 BEQ 5$ ;TYPE THE MESSAGE 
2552 010664 022777 020021 171332 CMP #20021, aRHDT :SINGLE PORT RPOS ? 
$ee7 010672 001427 BEQ 5$ ; TYPE THE MESSAGE 
2555 010674 022777 024022 171322 CMP #24022 ,aRHDT ;DUAL PORT RPO6 ? 
2556 010702 001442 BEQ 6$ ;TYPE THE MESSAGE 
2557 010704 022777 020022 171312 CMP #20022 ,aRHDT ;SINGLE PORT RPO6 ? 
$326 010712 001436 BEQ 6$ ; TYPE THE MESSAGE 
2560 010714 4$: 
2561 010714 104401 010722 TYPE .75$ be TYPE ASCIZ STRING 
2562 010720 000413 BR 74% ;GET OVER THE ASCIZ 
2565 ::75$: .ASCIZ <15><12>/DRIVE 18° AN RPOG/<15><12> 
2564 010750 74$: 
2565 010750 000435 BR 1$ ;SKIP NEXT ONES 
2566 010752 5$: 
2567 010752 104401 010760 TYPE .77% ain ASCIZ STRING 
2568 010756 000415 BR 76% GET OVER THE ASCIZ 
2569 :377$: .ASCIZ <15><12>/DRIVE 1° AN RPOS/<15><12> 
2570 011006 768: 
2571 011006 000416 BR 1$ : SKIP NEXT 
2572 011010 6$: 
2573 011010 104401 011016 TYPE 79% sine ASCIZ STRING 
2574 011014 000415 BR 78% ;GET OVER THE ASCIZ 
2575 ::798: .ASCIZ <15><12>/DRIVE 18° AN RP06/<15><12> 
2576 011044 78$: 
2577 ppeeeeeeeeererereeeeeeeetretteeeteeeeeeeeeeteeree eee eee TATE ATS 
2578 
2579 
2381 
2582 011044 005777 171156 1$: TST @RHSN ;READ SERIAL NO. AND DRIVE TYPE 
2583 011050 005777 171150 TST @RHDT . THESE TWO ARE TO HELP SCOPE LOOPS 
2584 011054 017737 171146 002310 MOV @RHSN,@MSN ;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 
2585 011062 017737 171136 002306 MOV @RHDT ,aaDT ;SAVE TO CHECK IF DRIVE CLEAR CLEARS ANY BITS 


E 
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CZRJID.P11 28-MAR-79 08:52 14 TYPE SERIAL NUMBER AND DRIVE TYPE SEQ 0056 
2586 
2587 ppeteeeeeeerereererererrerereeterreteeeeeeteeeeeeeeetereeeeeeeee 
$200 TEST 5 CHECK MOL TO BE HIGH 
2590 hd MAKE SURE THAT DRIVE 1S ON LINE BEFORE STARTING PROGRAM 
2591 3° IF DRIVE 1S OFF LINE THEN AFTER TYPE OUT THE PROGRAM WILL 
844 3f HANG FOR EVER WAITING FOR DRIVE TO GO ON LINE 
2594 ppeteeerereerererertereertetertttttreeeeeeeeeReeeeeeeeeeeeee Tees 
$202 011070 000004 TST5: SCOPE 
444 011072 012737 000005 004504 MOV #6-1,a¢TSTNE ;THIS SAVES TEST NUMBER 
2599 
2600 
2601 
2602 011100 004737 033314 JSR PC ,a#CLDISK :GIVE INITILIZE 
he ty 011104 032713 010000 BIT WMOL ,aR3 ;CHECK MOL IN RHDS1 
eH 011110 001144 BNE TST6 ;BRANCH IF MOL HIGH 
2607 011112 104401 011120 TYPE ,65$ itis ASCIZ STRING 
2608 011116 000420 BR 64% :GET OVER THE ASCIZ 
2609 3365$: .ASCIZ O15 ><12>/DRIVE 1§ OFFLINE = MOL IS LOW/ 
2610 011160 64$: 
2611 011160 104401 011166 TYPE ,67$ is TYPE ASC1Z STRING 
2612 011164 000424 BR 66$ ;GET OVER THE ASC1Z 
2613 33678: .ASCIZ <15><12>/HIT START ON DRIVE TO GET IT ON LINE/ 
2614 011236 66$: 
2615 011236 104401 011244 TYPE ,69% ii TYPE ASCIZ STRING 
2616 011242 000431 BR 68% GET OVER THE ASCIZ 
2617 3;69$: .ASCIZ <15><12>/PROGRAM. WILL HANG TESTING MOL TILL MOL IS HIGH/ 
2618 011326 688: 
2619 011326 032713 010000 1$: BIT WMOL ,aR3 ;CHECK MOL IN RHDS1 
2620 011332 001775 BEQ 1$ it IF MOL IS STILL LOW 
2621 011334 104401 011342 TYPE ,71% : TYPE ASCIZ STRING 
2622 011340 000430 BR 708 GET OVER THE ASCIZ 
2623 33718: .ASCIZ <15><12>/G00D - hor 1S HIGH, PROGRAM WILL BE EXECUTED/ 
2624 011422 708: 
2625 
2626 
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011422 


011424 
011432 
011436 


011524 
011526 
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000004 


012737 
012706 
004737 


022626 
022711 


001403 
104065 
012712 


08:52 


000006 
001000 
033314 


002166 
011514 
000340 


000200 
000300 


034012 
001200 


000040 


004200 


000040 


004504 


177776 


001200 


2 
30A(1052) 25-MAY-79 10:48 PAGE 58 
15 CHECK MOL TO BE HIGH 


speeeeeeeererererereeeeteteeeeeeteee etree eeetee eee eee rere 


;*TEST 6 PROGRAM INTERRUPT 


* PROGRAM INTERRUPT !S TESTED BY SETTING RDY AND IE 
* IN RHCS1 AT THE SAME TIME 

* THIS SHOULD INTERRUPT THROUGH LOCATION 254 

* THE PROCESSOR PRIORITY IS SET TO 4 
is 


Ree eeeeeeeeeeeekeeeeeeeeeeeeeeeeeeteeekeeteaeeeererenese 


16: SCOPE 


MOV #7-1,08TSTNM ; THIS SAVES TEST NUMBER 
MOV #STACK,SP ;RESET STACK 


JSR PC, ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


MOV @#RPVEC,RO ;GET RP VECTOR ADDRESS 

MOV MRPTRP1,(RO)*+ [THIS 1S FOR TIMELY INTERRUPTS 

MOV #340, (RO) 7RPO4 INTERRUPT SERVICE ROUTINE 
;PRIORITY = 7 

MOV #200,PS ;SET PROCESSOR PRIORITY @ 4 

MOV WRDY!IE,aR1 ;RDY, IE IN RHSC1 SHOULD CAUSE INTERRUPT 

MOV a*#TIMCNT,a#$TMP1; COUNTER 

DEC aaSTMP1 ;WAIT FOR INTERRUPT 

BNE 1$ ;BRANCH IF NOT ZERO 
;BEFORE THIS IS ZERO INTERRUPT SHOULD OCCUR 

ERROR 65 ; INTERRUPT DID NOT OCCUR 

MOV #CLR,AR2 [CLEAR CONTROLLER VIA CS2 

BR TS17 SBRANCH TO WERT TEST eccwcececeance 

RPTRP1: CMP (SP)+,(SP)+ RESTORE STACK 

CMP #DVA!RDY,aRI ;1& SHOULD BE LOW 

BEQ TS17 SCONTINUE 17 GOOD encocccccocces ) 

ERROR 65 ; INTERRUPT OCCURED BUT 


;1E FAILED TO RESET 


MOV WCLR,AR2 CLEAR CONTROLLER 


SEQ 0057 
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PROGRAM INTERRUPT SEQ 0058 

2674 
2675 
2676 ppeeeeeeerereererrerereetereerertereneteeeeeeeteeeeeeeeetererene 
geri ’ *TEST 7 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
2679 o* PROCESSOR PRIORITY 1S SET AT 5 (SAME AS THE DISK) 
2680 3¢ IE AND ROY IS SET. THIS SHOULD NOT INTERRUPT 
2681 peoeeeeeeeeererererreterererererererereeeeeeeeteetereeeeeeeeeee 
2682 011532 000004 TST7: SCOPE 
2683 
2684 
for 011534 012737 000007 004504 MOV #10-1,aaTSTNM ; THIS SAVES TEST NUMBER 
et 011542 012706 001000 MOV WSTACK,SP ;RESET STACK 
2689 011546 004737 033314 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
2690 jR3-RHDS1, R4-RHERI 
2691 :GIVE RH-11 INITIALIZE 
3695 SETUP UNIT NUMBER 
2696 011552 013700 002166 MOV @#RPVEC,RO ;GET RP VECTOR ADDRESS 
2695 011556 012720 011622 MOV MRPTRP2,(RO)* ;THIS IS FOR UNTIMELY INTERRUPTS 
2696 011562 012710 000340 MOV #340, (RO) ;RPO4 INTERRUPT SERVICE ROUTINE 
2697 ;PRIORITY = 7 
2698 011566 012737 000240 177776 MOV #240,PS ;SET PROCESSOR PRIORITY = 5 
3 a4 011574 012711 000300 _ MOV ROY‘ 1E,aR1 ;RDY, IE IN RHSC1 WHOULD CAUSE INTERRUPT 
2701 011600 013737 034012 001200 MOV a*TIMCNT,a#$TMP1; COUNTER 
2702 011666 005337 001200 1$: DEC aeSTMPl ;WAIT FOR INTERRUPT 
2703 611612 001375 BNE 1$ ;BRANCH IF NOT ZERO 
2704 ;BEFORE THIS 1S ZERO INTERRUPT WHOULD OCCUR 
ht 011614 012712 000040 MOV #CLR,AR2 ; CLEAR CONTROLLER 

6 
ate 011620 000404 BR T$110 3NO INTERRUPT SO CONTINUE ------"+"------ ) 
2709 
2710 011622 022626 RPTRP2: CMP (SP)+,(SP)¢ ;RESTORE STACK 
2711 011624 104065 ERROR 65 ; INTERRUPT OCCURRED WITH 
2712 ;PROCESSOR PRIORITY SAME AS DISK 
Hat 011626 012712 000040 MOV #CLR,AR2 :CLEAR CONTROLLER 

4 
2715 
2716 
2717 


H 5 
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718 
pp edeeeerererrerrererereretereetererererereeeeeeteeeeneeeneneeeee 
:*TEST 10 SET VV BIT #6 IN RHDS1 
;* THIS TEST SETS VV_IN RHDS1 
;* THERE IS A RESET AT THE BEGINING OF THE TEST 
:* FOR ERROR RECOVERY ONLY. 
Sp eeeeeeeeeereeereereterrereeereeterereteeeteneneneeeetenereeeee 
011632 000004 TST10: SCOPE 


;*IN CASE THERE 1S ANY DRIVE ERRORS DURING POWER UP 
“hy ee DOWN OR ANY PARITY ERRORS A RESET IS GIVEN 


WA NAA WW fp pn nn 
SOO ONOVFWN—OOOnOUVFWN—OO 


011634 000005 

011636 004737 037562 JSR PC ,aaSTKINT ;INITILIZE TK 

011642 012737 000000 177776 MOV #0,PS 

011650 012706 001000 MOV #STACK ,SP ;RESET STACK 

011654 012737 000010 004504 MOV #10,a#TSTNM ;SAVE TEST NUMBER 

011662 004737 033314 JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 

;R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
4) ; SETUP UNIT NUMBER 
2742 011666 004737 033352 JSR PC ,a#CHECK CHECK THAT DVA,RDY,MOL,DPR,DRY = 1 
2743 011672 104401 057465 TYPE ,CPHALT ;CANNOT CONTINUE TESTS IF THEY DON'T 
sree 011676 000000 HALT ;STOP TESTING 
4 

2746 011700 013777 002360 170272 MOV Q#PKACK,@RHCS1 ;GET READY FOR PKACK 
2747 ;PACK ACKNOWLEGDE WITH 22 IN RHCS1 
2748 
2749 
sree :*NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 
2752 011706 004037 033462 JSR RO, @#SAVER ;SAVE REGISTERS 
2753 011712 002172 RHWC ;RHWC IS THE FIRST REGISTER SAVED 
2754 011714 004512 SAVERE STARTING ADDRES OF WHERE 
2755 ; THE REGISTERS ARE SAVED 
2756 011716 000022 18. ;NUMBER OF REGISTERS 
eH ;SAVED = 18. 
2759 011720 015777 004506 170240 MOV Q#RPGVEC ,ARPVEC i SET RPO4 VECTOR ADDRESS 
2760 TO 'TIME1* IF P=CLOCK IS PRESENT 
2761 “OR TO 'TIME2* IF P=CLOCK IS NOT THERE 
2762 :'TIME’ WILL ONLY SAVE 
2765 ;CURRENT CYLINDER ADDRESS 
2764 ;AND LOOK AHEAD REGISTERS 
2765 
2766 
2767 011726 013746 002360 MOV @#PKACK,-(SP)  ;GET READY TO MOVE COMMAND 
2768 011732 052716 000001 BIS #60, (SP) ;GET READY TO SET GO 
2769 :WITHOUT INTERRUPT ENABLE 
2770 011736 012677 170236 MOV (SP)+*,@RHCS1 :GO WITH 
2771 :22 IN "RHCSI FOR PACK ACKNOWLEDGE 
2772 WITH INTERRUPT DISABLED 
2773 
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2774 011742 
2775 «011744 
2776 
2777 
2778 011746 
2779 011750 
2780 011752 
2781 011754 
2782 011756 
2783 
2784 
2785 
2786 
2787 
2788 011760 
2789 011764 
2790 011770 
2791 011774 
2792 
2793 011776 
2794 012000 
2795 012004 
2796 012010 
2797 
2798 012012 
2799 012016 
2800 012022 
2801 
2802 012024 
2803 012026 
2804 012032 
2805 012036 
2806 
2807 012040 
2808 
2809 012040 
2810 012044 
2811 
2812 012046 
2813 012050 
2814 012052 
2815 
2816 
2817 
2818 
2819 
2820 
2821 012054 
2822 
2823 012060 
2824 012062 
2825 012064 
2826 012066 
2827 012070 
2828 


28-MAR-7 
011100 
011305 


104413 
002222 
000100 
000001 
000001 


013746 


022600 
001405 


104021 


012746 
011637 
022605 


001405 
010537 


010337 
104063 


004037 
002222 


000001 


000001 
000100 


004037 
004512 


012076 


L CTRLR 
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002360 
004200 
001124 


001126 
004500 
010700 
001124 


001126 
004500 


034204 


034312 


2 MACY11 30A(1052) 
110 


64$: 


66$: 


1 5 
25-MAY-79 10:48 PAGE 61 
SET VV BIT #6 IN RHDS1 


MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR VV BIT TO SET 

RHDS1 :WAIT FOR RHDS1 REGISTER 

VV :WAIT FOR VV BIT IN RHDS1 REGISTER 
1. ;ALLOW 10 MICRO SECONDS 

1. ;VV MUST SET BETWEEN 


;00 AND 20 MICRO SECONDS 


;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND R5 IMMEDIATELY AFTER GO IS ISSUED 


MOV Q@MPKACK,-(SP)  ;SAVE COMMAND 
BIS WOVA!IRDY, (SP) ; INCLUDE DVA!RDY 


MOV (SP),@#$GDDAT  ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY DVA!RDY 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,Q#REGADR ;FAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND DVA!RDY SHOULD BE SET 

MOV WMOL!DPRIDRY!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR!DRY! VV 
;SHOULD BE SET 

BEQ 66% ;BRANCH IF GOOD 

MOV R5,a#S$BDDAT ;BAD DATA 

MOV R3,a#REGADR FAILING REGISTER RHDS1 

ERROR 63 ;DURING ABOVE OPERATION ONLY 
;MOL!DPR!DRY!VV SHOULD BE SET 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHDS1 ;CHANGE RHDS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF vv IS 1 

VV ; CHANGE vV BIT 


;*NOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
stW1TH AFTER PACK ACKNOWLEDGE 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC ;TEST DATA STARTING FROM ‘RHWC' 
18. 718. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 

2$ ;RETURN TO 2% ON NO ERROR 


SEQ 0060 









2830 012072 164015 
sth 012074 000207 


012076 
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1%: 





ERROR 
RTS 


25-MAY-79 
SET VV BIT #6 IN RHDS1 


15 
PC 
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GIVING A PACK ACKNOWLEDGE 
;CAUSED AN ERROR 

:PACK ACKNOWLEDGE SHOULD 
;SET VV IN RHDS1 

+ INTERRUPT SHOULD MAKE 


;1€ = 0 
:NO OTHER REGISTERS SHOULD 
; CHANGE 


:GOOD DATA GIVES CONTENTS 

;OF REGISTER BEFORE COMMAND 
:RECEIVED DATA GIVES CONTENTS 
;OF REGISTER AFTER COMMAND 





SEQ 0061 


‘. 
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PAGE 63 
CZRJJ0. P11 28-MAR-79 08:52 DATA TRANSFER RELATED ERRORS (USING MEDIA) SEQ 0062 
eee ~SBTTL DATA TRANSFER RELATED ERRORS (USING MEDIA) 
2849 
2850 ppetteeertererereeerrerereeretereeeerereeeeeeeeeeeeee eee eeTee eee 
eee ;*TEST 11 LAST BLOCK TRANSFERED-RHDS1 LBT 
2853 3* WRITE ONE WORD OF 65125 ON CYLINDER 410./814., TRACK 18 
2854 7* SECTOR 21, BY A WRITE HEADER AND DATA COMMAND 
2855 ;* THEN CHECK ALL REGISTERS (LAST BLOCK TRANSFERED 
on28 7¢ SHOULD BE SET) 
2858 ;* THEN READ ABOVE USING READ DATA (256 WORDS) 
2859 7* CHECK ALL REGISTERS AND DATA 
snot ;* (AGAIN 'LBT' SHOULD BE SET) 
2862 PLeeeeeeeeeeeeeeee ee ee eeereeetteeeeTeeeKKKKAKeeeteeeeee Tete eee 
2863 012076 000004 TST11: SCOPE 
2864 012100 012706 001000 MOV #STACK,SP ;RESET STACK 
ne. 012104 012737 000011 004504 MOV #11,aaTSTNM ;SAVE TEST NUMBER 
2867 012112 004737 033314 JSR PC ,a#CLDISK 7SET R1I-RHCS1, R2-RHCS2 
2868 ;R3-RHDS1, R4-RHER1 
2869 sGIVE RH-11 INITIALIZE 
oN ;SETUP UNIT NUMBER 
2872 s*CHECK THE DRIVE TYPE AND THEN FILL THE 
2873 :*WRITE FROM BUFFER WITH APPROPRIATE HEADER 
2874 PpeeeeeeeeeeeeeeeeeeeetereeeeeeeeAeteeeeeeTeKAAA TATA AEA e ee 
2875 012116 005737 004636 TST Q#RPO6 ;TEST FOR RPO6 DRIVE 
2876 012122 001412 BEQ 11$ ; TREAT UNIT AS AN RPOG 
2877 : TREAT UNIT AS AN RPO6 
2878 ppeeeeeeeeereredeeedeererrreeteeTet eee AeA A AAA KATA 
2879 
2880 
2881 012124 004037 033140 JSR RO, @#FLHEAD ;SAVE HEADER DATA IN WRFROM 
2882 012130 002370 WRF ROM ;LOCATION WHERE SAVED 
2883 012132 000005 5 ;NUMBER OF WORDS SAVED 
2884 012134 011456 11456 sFIRST DATA WORD 
2885 012136 011025 <18.*400>!<21.> ;SECOND DATA WORD 
2886 012140 000000 0 ; THIRD DATA WORD 
2887 012142 000000 0 ;FOURTH DATA WORD 
2888 012144 065125 ~<26.*2000>!<18.#40>!<21.> sFIFTH DATA WORD 
ot 012146 000411 BR 12$ ;CONTINUE WITH SET UP 
444 012150 11$ 
2893 012150 004037 033140 JSR RO, @#FLHEAD ;SAVE HEADER DATA IN WRFROM 
2894 012154 002570 WRF ROM LOCATION WHERE SAVED 
2895 012156 000005 5 ;NUMBER OF WORDS SAVED 
2896 012160 010632 10632 sFIRST DATA WORD 
2897 012162 011025 <18.*400>!<21.> sSECOND DATA WORD 
2898 012164 000000 0 ; THIRD DATA WORD 
2899 012166 000000 0 ;FOURTH DATA WORD 
2900 012170 065125 <26.*2000>!<18.#40>!<21,> FIFTH DATA WORD 
2901 012172 12$: 


5 
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CZRJJD.P11 28-MAR-79 08:52 LAST BLOCK TRANSFERED-RHDS1 LBT SEQ 0065 
2903 ;*FILL READ INTO BUFFER WITH ALL ONES 
3905 
2906 012172 004037 033164 JSR RO,@#CLAREA CLEAR 256 WORDS, FROM REINTO 
2907 012176 003434 REINTO ; STARTING FROM REINTO 
2908 012200 000256 256 3256 WORDS 
3474 012202 177777 1 sFILL WITH =1 
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012226 
012230 


012232 


012254 
012236 
012236 
012242 
012244 
012245 
012246 


012250 


012256 


012260 


012260 
012264 
012266 


012270 
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005737 
001412 


004037 
001456 
025 
022 
177773 
002370 


000000 
010000 


002344 


000411 


004037 
000632 
025 
022 
177773 
002370 


000000 
010000 


002344 


004037 
002172 
004512 


000022 


;*DRIVE TYPE 1S CHECKED AND THEN THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


ppeteeeeereeerereeereeeeereeereeerigeeereAeeeeeAKeKeeereKerereeeee es 


004636 TST rn ;TEST FOR RPO6 DRIVE 


BEQ 


; TREAT UNIT AS RPO4 


S,eeeeeereeeeeeeeeeteeeterereeeeeeeeeeeAAKKKKKAKKKeKKAKKKe Re eA AAS 


035276 JSR RO, a@#RUN 
-BYTE 9.21. 
18. 
WRF ROM 
0 
FMT22 


WRIFOR 


BR 8$ 
7$: 
035276 JSR RO, @#RUN 


wo 
—- 
4. 
"rn 
—MN 
o— 
. 


WRF ROM 


0 
FMT22 
WRIFOR 


s;SETUP TO RUN FOR DATA COMMAND 
sCYLINDER 814. 

sSECTOR 21. 

s TRACK 18. 

sWORD COUNT (DATA) = 1 + 

34 HEADER WORDS 

;BUS ADDRESS 

sSTARTING ADDRESS OF DATA 

;BUFFER = WRFROM 

:D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

;D0 NOT INHIBIT ECC CORRECTION 


;D0 NOT INHIBIT HEADER COMPARE 
T READY TO DO A WRIFOR 


3G 
; WRITE HEADER AND DATA WITH 82 IN RHCS1 
;CONTINUE WITH TEST 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 410. 

SECTOR 21. 

;TRACK 18. 

;WORD COUNT (DATA) = 1 + 

74 HEADER WORDS 

;BUS ADDRESS 

STARTING ADDRESS OF DATA 
;BUFFER = WRFROM 

;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
;16 BITS PER WORD FORMAT 

;DO0 NOT INHIBIT ECC CORRECTION 


;D0 NOT INHIBIT HEADER COMPARE 
READY TO DO A WRIFOR 


;GET 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


033462 JSR RO, a#SAVER 
RHWC 
SAVERE 


18. 


;SAVE REGISTERS 

sRHWC 1S THE FIRST REGISTER SAVED 
;STARTING ADDRES OF WHERE 

; THE REGISTERS ARE SAVED 

;NUMBER OF REGISTERS 


SEQ 0064 


CZRJJDO, RPOG/5/6 FCTNL 
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CZRJID.P11 
2968 
2969 
2970 012272 
2971 
2972 012276 
2973 012302 
2974 012304 
2975 
2976 
2977 
2978 
2979 
2980 
2981 012312 
2982 012316 
2983 
2984 012322 
2985 
2986 
2987 
2988 
2989 
2990 012326 
2991 012330 
2992 012332 
2993 012334 
2994 012336 
2995 
2996 
2997 
2998 
2999 012340 
3000 012344 
3001 012346 
3002 
3003 
3004 012350 
3005 012354 
3006 012356 
3007 
3008 
3009 012360 
3010 012364 
3011 
3012 012366 
3013 012370 
3014 012372 
3015 
3016 012374 
3017 012400 
3018 
3019 012402 
3020 012404 
3021 012406 
5022 
3023 012410 


004737 


104401 
000000 
013777 


013746 
052716 


012677 


104413 


004704 
004704 


004037 
002172 
000000 


004037 
002174 
002402 


004037 
002222 


000001 
000001 
002000 


004037 
002212 


000001 
000001 
000001 


004037 


033374 
057465 
004506 


002344 
000101 


167652 


033216 


033216 


034204 


034204 


033216 
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10:48 PAGE 66 


LAST BLOCK TRANSFERED-RHDS1 LBT 
sSAVED = 18. 


sCHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 


MOV 


MOV 
BIS 


MOV 


PC ,a#CHECKT 
»CPHALT 


@ARP4VEC ,ARPVEC 


OAWRIFOR,-(SP) 
#GO'IE, (SP) 


(SP)+,@RHCS1 


JSR RO, aF ILLRE 
RHWC 

0 

JSR RO,@#F ILLRE 
RHBA 

WRF ROM+<5*#2> 

JSR RO, a#CHREG 
RHDS1 

1 

1 

LBT 

JSR RO, a#CHREG 
RHCA 

1 

1 

B1T0 

JSR RO, @#F ILLRE 


COOP TEST CONTINUE TESTING IF NOT 
:SET RPO. VECTOR ADDRESS 
*TIME1’ IF P-CLOCK IS PRESENT 
‘OR TO "TIME2' IF P=CLOCK IS NOT THERE 
;'TIME' WILL ONLY SAVE 


:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 

;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 


;WITH INTERRUPT ENABLED 
s*TIME 1S NOT CRITICAL HERE 


;WAIT FOR LBT BIT TO SET 

;WAIT FOR RHDS1 REGISTER 

WAIT FOR LBT BIT IN RHDS1 REGISTER 
;ALLOW 25000 MICRO SECONDS 

;LBT MUST SET BETWEEN 

300 AND 50000 MICRO SECONDS 


>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
;MOV O INTO SAVED RHWC 


a REGISTER TO CHANGE 


>MOV WRFROM+<5*2> INTO SAVED RHBA 
> SAVED = TO CHANGE 


;CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


:1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF LBT IS 1 
;CHANGE LBT BIT 


;CHANGE BITS IN SAVED REGISTER 
; CHANGE RHCA REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF BITO IS 1 
;CHANGE BITO BIT 


:MOv 0 INTO SAVED RHDST 


SEQ 0065 


6 
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i 

C7RJID.P11 | 2B-MAR-79 08:52 LAST BLOCK TRANSFERED-RHDS1 LBT Sta 0066 | 

30246 612614 002204 RHD>! : SAVED REGISTER TO CHANGE 

3025 0124616 000000 0 ;DATA 

3026 | 

3027 | 

534 s* COMPARE ALL REGISTESS 

3030 012420 004037 034312 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 

3031 [PRESENT VALUE 

3032 012424 006512 SAVERE !G00D DATA SAVED IN 'SAVERE' 

3033 012426 002254 wC ; TEST DATA STARTING FROM ‘"RHWC' 

3034 012430 000621 17. 317. REGISTERS TO BE COMPARED 

$035 012482 012436 | i$ “RETURN TO 18 ON ERROR 

st: 012434 012442 2% ;RETURN TO 2$ ON NO ERROR 

3038 ; 

3039 012436 104045 1$: ERROR 45 SWRITING ON THE LAST BLOCK 

3040 012440 000207 coe “tee | TIE. CYLINDER 410./814., SECTOR 21 

3041 *, STRACK 18 CAUSED 

3042 ; IMPROPER REGISTER CHANGE 

3043 ;GOOD DATA GIVES WHAT 

3044 : "SHOULD BE THERE 

3045 “RECEIVED DATA GIVES WHAT 

3046 ;WAS THERE AFTER WRITE 


3047 ;ON LAST BLOCK 





— 
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CZRJID.P11 


012442 
012442 


012446 


012456 
012460 


012470 


012472 
012476 


— ss 


28-MAR-79 0 


004737 


004037 


065125 
004037 


000000 


005737 
001412 


004037 
001456 
025 


022 
177400 
003434 


000000 
010000 


002346 


000411 


004037 
000632 
025 


033314 


033140 


033164 


004636 


035276 


035276 


2$: 


‘. 
25-MAY-79 10:48 PAGE 68 
LAST BLOCK TRANSFERED-RHDS1 LBT 


;*NOW A READ DATA WILL BE DONE ON SAME CYLINDER, SECTOR & TRACK 


JSR 


JSR 
basse 


JSR 


WRF ROM+2 
25 


s*FIRST THE DRIVE TYPE 1S CHECKED AND THEN THE se esncticnete 


PC,a#CLDI 


RO, @#FLHE 


RO, @#CLAR 


;*CLEAR ANY PREVIOUS ERRORS 


SK sSET R1-RHC 
7R3-RHDSI, 


$1, 
R4-RHER1 


R2-RHCS2 


GIVE RH-11 INITIALIZE 


; SETUP UNIT NUMBER 
FILL WRITE FROM BUFFER WITH EXPECTED DATA 


AD ;SAVE HEADER DATA IN WRFROM 
sLOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 

<26.*2000>!<18.#40>!<21.> 


EA ;CLEAR 256. WORDS, 
ARTING FROM WRFROM+2 


:ST 
256. WORDS 
sFILL WITH 


;*READ COMMAND 1S LOADED 


FRR A AERA AE AAA ATTA A AAA A AAA TATA ATA ARATE R ETRE TERT 


TST 
BEQ 


REINTO 


0 
FMT22 
READAT 


9$: 


a#RP06 
9$ 


RO,@#RUN 


21. 
18. 


10% 


RO,@#RUN 
21. 


;TEST FOR RPO6 DRIV 


; TREAT UNIT AS RPO4 


PUITITIIITITIIII TILT TLTLLTitt 


0 


E 


FIRST DATA WORD 


FROM WRFROM+2 


;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 814. 


sSECTOR 21. 
sTRACK 18. 
;WORD COUNT = 


;BUS ADDRESS 
:STARTING ADDRESS OF DATA 
;BUFFER = REINT 


0 
300 NOT INHIBIT Pt INCREMENT 


256. 


316 BITS PER WORD F 
:D0 NOT INHIBIT ECC CORRECTION 
;D0 NOT INHIBIT HEADER COMPARE 
;GET READY TO DO A READAT 
;READ DATA WITH 70 IN RHCS1 


;CONTINUE WITH TEST 


;SETUP TO RUN FOR DATA COMMAND 


: CYLINDER 
;SECTOR 21. 


410. 


SEQ 0067 


on 
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CZRJJDO, RPOG/5/6 FCTNL CTIRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 69 
CZRJJD.P11 28-MAR-79 08:52 111 LAST BLOCK TRANSFERED-RHDS1 LBT SEQ 0068 

3104 012533 022 -BYTE 18. s TRACK 18. 
3105 012534 177400 -256. sWORD COUNT = 256. 
3106 012536 003434 REINTO :BUS ADDRESS 
3107 STARTING ADDRESS OF DATA 
3108 sBUFFER = REINTO 
3109 012540 000000 0 00 NOT INHIBIT BUS ADDRESS INCREMENT 
3110 012542 010000 FMT22 316 BITS PER WORD FORMAT 
3111 :D0 NOT INHIBIT ECC CORRECTION 
3112 :00 NOT INHIBIT HEADER COMPARE 
3113 012544 002346 READAT :GET READY TO DO A READAT 
aii READ DATA WITH 70 IN RHCS1 
iis 012546 10$: 
3118 s*SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
3119 012546 004037 033462 JSR RO, a#SAVER sSAVE REGISTERS 
3120 012552 002172 RHWC sRHWC IS THE FIRST REGISTER SAVED 
3121 012554 004512 SAVERE STARTING ADDRES OF WHERE 
3122 sTHE REGISTERS ARE SAVED 
3123 012556 000022 18. NUMBER OF REGISTERS 
3124 :SAVED = 18. 
3125 012560 004737 033374 JSR PC, @a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
3126 sAND THAT ALL STATUS BITS ARE = 0 
3127 012564 104401 057465 TYPE ,CPHALT sCANNOT CONTINUE TESTING IF NOT 
3128 012570 000000 HALT sSTOP TEST 
3129 012572 013777 004506 167366 MOV AMRPGVEC,ARPVEC ;SET RPOS VECTOR ADDRESS 
3130 10 'TIME1' IF P-CLOCK IS PRESENT 
3131 :OR TO 'TIME2' IF P-CLOCK IS NOT THERE 
3132 :'TIME’ WILL ONLY SAVE 
3133 CURRENT CYLINDER ADDRESS 
31% sAND LOOK AHEAD REGISTERS 
3136 012600 013746 002346 MOV Q@#READAT,-(SP) ;GET READY TO MOVE COMMAND 
3137 012604 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
3138 ENABLE INTERRUPT 
3139 012610 012677 167364 MOV (SP)+,@RHCS1 :G0 WITH 
3140 :70 IN RHCS1 FOR READ DATA 
a1] WITH INTERRUPT ENABLED 

4 
163 s*TIME 1S NOT CRITICAL HERE 

44 
3145 012614 104413 WAT :WAIT FOR RDY BIT TO SET 
3146 012616 002200 RHCS1 sWAIT FOR RHCS1 REGISTER 
3147 012620 000200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
3148 012622 001614 908. sALLOW 9080 MICRO SECONDS 
3149 012624 001502 834. :RDY MUST SET BETWEEN 
3130 :740 AND 17420 MICRO SECONDS 

1 
3138 s*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

1 
3154 
3155 012626 004037 033216 JSR RO, a#F ILLRE :MOV 0 INTO SAVED RHWC 
3156 012632 002172 RHWC sSAVED REGISTER TO CHANGE 
3157 012634 000000 0 :DATA 
3158 
3159 
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D.P11 28-MAR-79 08:52 LAST BLOCK TRANSFERED-RHDS1 LBT SEQ 0069 
3160 012636 004037 033216 JSR RO, @#FILLRE :MOV REINTO+<256.*2> INTO SAVED RHBA 
3161 012642 002174 RHBA SAVED REGISTER TO CHANGE 
3162 012644 004434 RE INTO+<256. #2> sDATA 
see 
3165 012646 004037 034204 JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 
gies 012652 002222 RHDS1 ; CHANGE RHDS1 REGISTER 
3168 012654 000001 1 :1 BIT/BITS TO BE CHANGED 
3169 012656 000001 1 sNEW VALUE OF LBT IS 1 
aio 012660 002000 LBT ; CHANGE LBT BIT 
3172 012662 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
He 012666 002212 RHCA : CHANGE RHCA REGISTER 
3175 012670 000001 1 :1 BIT/BITS TO BE CHANGED 
3176 012672 000001 1 :NEW VALUE OF BITO IS 1 
gee 012674 000001 B110 ;CHANGE BITO BIT 
3179 012676 004037 033216 JSR RO, a#F ILLRE :MOv 0 INTO SAVED RHDST 
3180 012702 002204 RHDST :SAVED REGISTER TO CHANGE 
3181 012704 000000 0 sDATA . 
3182 
3183 
ties > *COMPARE ALL REGISTERS 
3186 012706 004037 034312 JSR RO, a#COMREG sCOMPARE SAVED REGISTERS WITH 
3187 :PRESENT VALUE 
3188 012712 004512 SAVERE :GOOD DATA SAVED IN ‘SAVERE' 
3189 012714 002254 wC TEST DATA STARTING FROM 'RHWC' 
3190 012716 000022 18. :18. REGISTERS TO BE COMPARED 
3191 012720 012724 3$ ;RETURN TO 3% ON ERROR 
3192 012722 012730 4$ sRETURN TO 4$ ON NO ERROR 
3194 
3195 012724 104045 3$: ERROR 45 READING ON LAST BLOCK IE. 

3196 012726 000207 RTS PC CYLINDER 410./814., SECTOR 21, TRACK 18 
3197 =CAUSED AN ERROR 
3198 :GOOD DATA GIVES WHAT SHOULD 
3199 :BE THERE 
3200 RECEIVED DATA GIVES WHAT 
3201 sWAS THERE AFTER READ 
3508 :FROM LAST BLOCK 
3204 :*READ DATA WILL BE COMPARED 
3502 012730 4$: 
3207 012730 004037 035342 JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
3208 012734 002370 WRFROM GOOD DATA STARTS FROM WRFROM 
3209 012736 003434 REINTO :TEST DATA STARTS FROM REINTO 
3210 012740 000400 256. :256., WORDS TO BE COMPARED 
3211 012742 012746 5$ RETURN TO 5$ ON ERROR 

asi¢ 012744 012752 6$ :RETURN TO 6$ ON NO ERROR 

21 

3214 
3215 012746 104046 S$: ERROR 46 DATA READ FROM 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 
CZRJID.P11 28-MAR-79 08:52 


goi¢ 012750 000207 
ht; 012752 


30A(1052) 
111 


6$: 


25-MAY-79 


RTS 


PC 


F 6 
10:48 PAGE 71 
LAST BLOCK TRANSFERED-RHDS1 LBT 


;LAST BLOCK IN ERROR 


SEQ 0070 


G6 6 
10:48 PAGE 7 


CZRJJDO, RPO4/5/6 FCTINL CTRLR2 MACYI1 5 3 be 25-MAY-79 2 
CZRJJD.P11 28-MAR-79 08:52 111 LAST BLOCK TRANSFERED-RHDS1 LBT SEQ 0071 
3222 
3223 ppetteeeeererereeeerrerererettererereeteeeeeeeKeteeKeretereteeeeee 
EN s*TEST 12 SEARCH COMMAND 
3226 7 THE SEARCH COMMAND WILL BE DONE ON CYLINDER 0 
3227 he THAT 1S STARTING WITH A RECALIBRATE 
3228 :* THEN HEADER AND DATA WILL BE WRITTEN FOR SECTOR O AND 1 
3229 7° ALL REGISTERS WILL BE CHECKED 
3230 he A SEARCH COMMAND WILL BE GIVEN FOR SECTOR 0 
3231 7° ON INTERRUPT SECTOR 1 HEADER AND DATA WILL BE READ 
3232 ed TIME WILL BE CRITICAL AS THE TIME TAKEN TO DO THE 
3233 3% READ 1S THE ONLY INDICATOR THAT THE HEADS WERE ON 
3234 hs SECTOR 0 AT INTERRUPT TIME. TIME ALLOWED 1S MAXIMUM 
3235 hd OF 1500 MICRO SECONDS 
3236 hd THEN ALL REGISTERS ARE CHECKED AND DATA READ 
3237 3° 1S CHECKED 
3238 
3239 ppeteeeeeeeeeererrerretereteeeeeeeeeeeeeee eee eeeeeee Aree eee 
3240 012752 000004 TST12: SCOPE 
3241 012754 012706 901000 MOV WSTACK,SP ;RESET STACK 
act 012760 012737 000012 004504 MOV #12,Q#TSTNM ;SAVE TEST NUMBER 
3244 012766 004737 033314 JSR PC ,aa#CLDISK ;SET R1I-RHCS1, R2-RHCS2 
3245 ;R3-RHDS1, R4-RHER| 
3246 :GIVE RH-11 INITIALIZE 
3247 ; SETUP UNIT NUMBER 
3248 :*GET HEADS TO CYLINDER 0 
3249 012772 004737 033374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
3250 ;AND THAT ALL STATUS BITS ARE = 0 
3251 012776 104401 057465 TYPE »CPHALT ;CANNOT CONTINUE TESTING IF NOT 
s5e¢ 013002 000000 HALT ;STOP TEST 
3254 013004 013777 004506 167154 MOV O#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
3255 :T0 *TIME1® IF P-CLOCK IS PRESENT 
3256 ;OR TO ‘TIME2* IF P=CLOCK 1S NOT THERE 
3257 :'TIME' WILL ONLY SAVE 
3258 ; CURRENT CYLINDER ADDRESS 
3259 ;AND LOOK AHEAD REGISTERS 
3261 
3262 013012 013746 002326 MOV @ARECALI,-(SP) ;GET READY TO MOVE COMMAND 
3263 013016 052716 000101 BIS #GO!1E, (SP) ;GET READY TO SET GO AND 
3264 ENABLE INTERRUPT 
3265 013022 012677 167152 MOV (SP)+,@RHCS1 ;GO WITH 
3266 36 IN RHCS1 FOR RECALIBRATE 
prt! ;WITH INTERRUPT ENABLED 
6 
3269 013026 104413 WAT ;WAIT FOR RDY BIT TO SET 
3270 013030 002222 RHDS1 ;WAIT FOR RHDS1 REGISTER 
3271 013032 000200 RDY ;WALT FOR RDY BIT IN RHDS1 REGISTER 
3272 013034 012740 5600. ;ALLOW 56000 MICRO SECONDS 
3273 013036 012737 5599. ;RDY MUST SET BETWEEN 
3274 :10 AND 111990 MICRO SECONDS 
3275 
3276 
3277 0130460 004737 0335314 JSR PC ,a#CLDISK SET RI-RHCS1, R2=RHCS2 


os alia aati 
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CZRJJD.P11 28-MAR-79 08:52 112 SEARCH COMMAND SEQ 0072 
3278 :R3-RHDS1, R4-RHERI 
3279 :GIVE RH-11 INITIALIZE 
33t SETUP UNIT NUMBER 
eset :*FILL WRITE FROM BUFFER WITH HEADER 
3284 013044 004037 033140 JSR RO, a#FLHEAD SAVE HEADER DATA IN WRFROM 
3285 013050 002370 WRF ROM LOCATION WHERE SAVED 
3286 013052 000004 4 ;NUMBER OF WORDS SAVED 
3287 013054 010000 10000 sFIRST DATA WORD 
3288 013056 000000 0 ;SECOND DATA WORD 
3289 013060 000000 0 s THIRD DATA WORD 
434] 013062 000000 0 sFOURTH DATA WORD 
3505 s*FILL WRITE FROM BUFFER WITH DATA 
3294 013064 004037 033164 JSR RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM+10 
3295 013070 002400 WRF ROM+10 STARTING FROM WRFROM+10 
3296 013072 000400 256. 7256. WORDS 
3297 013074 000000 0 sFILL WITH O 
3298 
3299 
3301 s*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
3302 013076 004037 033140 JSR RO, a#FLHEAD SAVE HEADER DATA IN WRFROM*+<260.*2> 
3303 013102 003400 WRF ROM+<260.*2> sLOCATION WHERE SAVED 
3304 013104 000004 4 NUMBER OF WORDS SAVED 
3305 013106 010000 10000 sFIRST DATA WORD 
33 013110 000001 1 :SECOND DATA WORD 
3307 013112 000000 0 THIRD DATA WORD 
3308 013114 000000 0 FOURTH DATA WORD 
3311 s*FILL WRITE FROM BUFFER WITH NEXT SECTOR DATA 
3312 013116 004037 033164 JSR RO, @#CLAREA CLEAR 4 WORDS, FROM WRFROM+<264, *2> 
3313 013122 003410 WRF ROM+<264,#2> STARTING FROM WRF ROM+<264, #2> 
3314 013124 000004 4 74 WORDS 
3315 013126 000001 1 FILL WITH 1 
se 
3318 :*CLEAR READ INTO BUFFER WITH DATA OTHER THAN EXPECTED DATA 
23) 
3320 013130 004037 033164 JSR RO, @#CLAREA CLEAR 260. WORDS, FROM REINTO 
3321 013134 003434 REINTO STARTING FROM REINTO 
3322 013136 000404 260. 3260. WORDS 
3323 013140 000377 377 FILL WITH 377 
3324 
3325 
3326 :*THE WRITE HEADER AND DATA WILL BE LOADED 
3 
3328 013142 004037 035276 JSR RO, a#RUN SETUP TO RUN FOR DATA COMMAND 
3329 013146 000000 0 sCYLAiNDER 0 
3330 013150 000 BYTE 0 :SECTOR 0 
3331 013151 000 BYTE 0 : TRACK 0 
3332 013152 177364 -264.°4 :WORD COUNT (DATA) = 264, *¢ 
3333 :4 HEADER WORDS 


CZRJJDO, RPO4G/5/6 FCTNL cin ee MACY11 c's 
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3334 013154 002370 

3335 

3336 

3337 013156 000000 

3338 013160 010000 

3339 

3340 

3341 013162 002344 

3342 

3343 

3344 

3345 

3346 013164 004037 033462 
3347 013170 002172 

3348 013172 004512 

3349 

3350 013174 000022 

3351 

3352 

Sete 013176 004737 033374 
3355 013202 104401 057465 
gah 013206 000000 

3358 013210 013777 004506 
3359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 013216 013746 002344 
toed 013222 052716 000101 
369 013226 012677 166746 
3370 

3371 

3372 013232 011100 

3373 013234 011305 

3374 

3375 

3376 

3377 013236 104413 

3378 013240 002200 

3379 013242 000200 

3380 013244 001614 

3381 013246 001507 

3382 

3383 

3384 

3385 

3386 

3387 013250 013746 002344 
3388 4013254 052716 004101 
3389 013260 011637 001124 


166750 


1 6 
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SEARCH COMMAND 


WRFROM ;BUS ADDRESS 

STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 

;00 NOT INHIBIT ECC CORRECTION 

;00 NOT INHIBIT ore COMPARE 
WRIFOR :GET READY TO DO A WRIFOR 

;WRITE HEADER AND DATA WITH M62 IN RHCS1 


- REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


RO, @#SAVER ;SAVE REGISTERS 
RHUC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE TSTARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,a#CHECK? ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 


;AND THAT ALL STATUS BITS ARE = 0 
TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV OARPGVEC ,ARPVEC :SET RPO4 VECTOR ADDRESS 
TO 'TIME1' IF P-CLOCK IS PRESENT 
OR TO 'TIME2* IF P-CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 

MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 

MOV OR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


:*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


WAT ;WAILT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY ;WALT FOR RDY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET 


BETWEEN 
:690 AND 17470 MICRO SECONDS 


>*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV Q#WRIFOR,-(SP) ;SAVE COMMAND 
BIS WIE‘ DVA!GO,(SP) ; INCLUDE IE!DVA!GO 
MOV (SP),a#$GDDAT ;SAVE FOR PRINTOUT 


SEQ 0073 


CZRJJDO, RPO4/5/6 FCTNL 
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3390 013264 022600 
3392 013266 001405 


3395 013270 010037 
3394 013274 010137 


3395 013300 104021 
3396 

3397 013302 012746 
3398 013306 011637 
3399 013312 022605 
3400 

3401 013314 001405 
3402 013316 010537 
3403 013322 010337 
3404 013326 104063 
3405 

3406 013330 

3407 

3408 

3409 

3410 013330 004037 
3411 013334 002172 
3412 013336 000000 
3413 

3414 


3415 013340 004037 
3416 013344 002174 
3417 013346 003420 


013350 004057 
3421 013354 002204 
013356 000002 


3428 013360 004037 
3430 013364 004512 


3431 013366 002254 
3432 013370 000022 
3433 013372 013376 
3434 013374 015402 
3435 
3436 


3437 013376 104027 
3438 013400 000207 





eS >On 
—e 


001126 
004500 


033216 


033216 


033216 


034312 


RL g MACY11 7 


67$: 


69$: 


J 6 
25-MAY-79 10:48 PAGE 75 


SEARCH COMMAND SEQ 0074 
CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!DVA!GO 
;AND COMMAND SHOULD BE SET 
BEQ 67% ;BRANCH IF GOOD 
MOV RO, a#$BDDAT ;BAD DATA 
MOV R1,a#REGADR ;FAILING REGISTER RHCS1 
ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND IE!DVA!GO SHOULD BE SET 
MOV WMOL !DPR' VV, =(SP) ; SAVE ae SET DURING OPERATION IN RHDS1 
MOV (SP), a#$GDDAT =; SAVE FOR PRINTOUT 
CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR! VV 
;SHOULD BE SET 
BEQ 69% ;BRANCH IF GOOD 
MOV R5,a#$BDDAT ;BAD DATA 
MOV R3,@#REGADR sFAILING REGISTER RHDS1 
ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


>*NOW CHANGE SAVE REGISTERS TO EXPECTED VALUES 


JSR RO,aMF ILLRE :MOv 0 INTO SAVED RHWC 

RHWC sSAVED REGISTER TO CHANGE 

0 :DATA 

JSR RO, af ILLRE sMOV WRFROM+<268.*2> INTO SAVED lesion 
RHBA s;SAVED REGISTER TO CHANGE 

WRF ROM+<268,. *2> DATA 

JSR RO, QF ILLRE sMOV 2 INTO SAVED RHDST 

“esis Tt 4g REGISTER TO CHANGE 


>*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
:*W1TH REGISTERS AFTER CCMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
wC sTEST DATA STARTING FROM ‘RHWC' 
18. 318. REGISTERS 70 BE COMPARED 
1$ sRETURN TO 1% ON ERROR 
2% ;RETURN TO 2$ ON NO ERROR 
ERROR 27 ;WRITE HEADER AND DATA 
RTS PC ;CAUSED IMPROPER REGISTER 
3 CHANGE 
;GO0D DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


> *NOW A SEARCH COMMAND WILL BE GIVEN 


K 6 
CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY) — 25-MAY-79 10:48 PAGE 76 


CZRIIO.P11 28-MAR-79 08:52 112 SEARCH COMMAND SEQ 0075 
3446 ;*BUT BEFORE THAT ALL POSSIBLE REGISTERS 
3447 :*WILL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1 
3448 ;*AS THERE WILL NOT BE MUCH TIME BETWEEN THE 
oe s*COMPLETION OF THE SEARCH AND THE SECTOR 1 COMING. 
3451 s*FILL FOR THE READ HEADER AND DATA COMMAND WHICH WILL NOT 
3452 :*BE EXECUTED TILL AFTER THE SEARCH 
3453 :*THE SEARCH WILL ONLY LEAVE RHCS1 AND RHDST 
see >*CHANGED ALL THE REST WILL BE UNCHANGED 
seep 013402 2$: 
3458 013402 004737 033314 JSR PC,a#CLDISK sSET R1“-RHCS1, R2-RHCS2 
3459 sR3-RHDS1, R4-RHERI 
3460 GIVE RH-11 INITIALIZE 
‘tre : SETUP UNIT NUMBER 
3463 013406 004037 035276 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
3464 013412 000000 0 sCYLINDER 0 
3465 013414 000 -BYTE 0 SECTOR 0 
3466 013415 000 BYTE 0 ; TRACK 0 
3467 013416 177770 -8. :WORD COUNT = 8. 
3468 013420 003434 REINTO :BUS ADDRESS 
3469 STARTING ADDRESS OF DATA 
3470 “BUFFER = REINTO 
3471 013422 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
3472 013424 014000 ECL! FMT22 :16 BITS PER WORD FORMAT 
3473 : INHIBIT ECC CORRECTION 
3474 :D0 NOT INHIBIT HEADER COMPARE 
3475 013426 002334 SERCH :GET READY TO DO A SERCH 
3476 SEARCH WITH 30 IN RHCS1 
3477 
3478 
3479 :*SAVE REGISTERS FOR COMPARISON NOT AFTER THE 
3480 :*SEARCH COMMAND BUT AFTER THE READ HEADER AND DATA 
3481 013430 004037 033462 JSR RO, a#SAVER SAVE REGISTERS 
3482 013434 002172 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
3483 013436 004512 SAVERE STARTING ADDRES OF WHERE 
3484 THE REGISTERS ARE SAVED 
3485 013440 000022 18. NUMBER OF REGISTERS 
ebe SAVED = 18. 
4 
3488 >*NOW SAVE VALUES FOR RHCS1 AND RHDST WHICH 
et s*WILL CHANGE AFTER THE SEARCH 
4 
3491 013442 013746 002350 MOV QMREFOR,-(SP)  ;SAVE READ HEADER AND DATA 
3492 013446 052716 000101 BIS #1E'GO, (SP) : INTERRUPT ENABLE AND GO 
3493 013452 012637 004652 MOV (SP)+*,a#TMPO SAVE IN RO FOR RHCS1 
ee 013456 012737 000001 004660 MOV #1, aa#TMPS :SAVE TRACK 0 SECTOR 1 FOR RHDST 
4 
3496 :*THE INTERRUPT VECTOR WILL BE SET TO GO TO 2$ 
3497 AFTER THE SEARCH 
3498 


3499 013464 01 532 166474 MOV #7%,aRPVEC ;SET INTERRUPT VECTOR TO 2% 
3500 013472 00 374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = | 
3501 ;AND THAT ALL STATUS BITS ARE = 0 


L_ 6 
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3502 013476 104401 057465 TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
eae 013502 000000 HALT :STOP TEST 
3505 013504 013746 002334 MOV @MSERCH,-(SP)  ;GET READY TO MOVE COMMAND 
3506 013510 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
3507 sENABLE INTERRUPT 
3508 013514 012677 166460 MOV (SP)+,@RHCS1 GO WITH 
a4 ‘WITH INTERRUPT ENABLED 
a :*TIME 1S NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION 
3513 013520 104413 wAT WAIT FOR DRY BIT TO SET 
3514 013522 002222 RHDS1 sWALT FOR RHDS1 REGISTER 
3515 013524 000200 DRY sWAIT FOR DRY BIT IN RHDS1 REGISTER 
3516 013526 001614 908. sALLOW 9080 MICRO SECONDS 
3517 013530 001507 839. sDRY MUST SET BETWEEN 
319 7690 AND 17570" AICRO SECONDS 
3520 013532 012737 000000 177776 7$: MOV #0,PS SET PROSESSOR STATUS TO 
3521 sPRIORITY O IN CASE IT WAS 
3522 TAKEN OUT OF WAT ROUTINE 
3523 BEFORE RTI 
3524 013540 013777 004660 166436 MOV Q#TMP5,ARHDST ;SET DESIRED SECTOR/TRACK 
3525 :REGISTER TO SECTOR 1,TRACK 0 
3526 013546 013777 004506 166412 MOV OARP4VEC ,ARPVEC :SET RPO4 VECTOR ADDRESS 
3527 TO 'TIME1’ IF P=CLOCK IS PRESENT 
3528 “OR TO 'TIME2’ IF P=CLOCK IS NOT THERE 
3529 :*TIME’ WILL ONLY SAVE 
3530 :CURRENT CYLINDER ADDRESS 
ath AND LOOK AHEAD REGISTERS 
3533 013554 013777 904652 166416 MOV Qa TMPO,ARHCS1 ;FILL RHCS1 WITH READ COMMAND 
3534 : TOGETHER WITH INTERRUPT ENABLE 
3535 ;AND GO 
3536 
3537 :*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
at >*INDICATES WRONG SEARCH IN THE SEARCH COMMAND 
3540 013562 104413 WAT WAIT FOR RDY BIT TO SET 
3541 013564 002200 RHCS1 sWALT FOR RHCS1 REGISTER 
3542 013566 000200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
3543 013570 000225 149. sALLOW 1490 MICRO SECONDS 
3544 013572 000002 Ps sRDY MUST SET BETWEEN 
ese 1470 AND 1510 MICRO SECONDS 

46 
eee s*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA 
4 
3549 013574 004037 033140 JSR RO, a#FLHEAD SAVE HEADER DATA IN WRFROM 
3550 013600 002370 ua ROM sLOCATION WHERE SAVED 
3551 013602 000004 :NUMBER OF WORDS SAVED 
3552 013604 010000 10000 sFIRST DATA WORD 
3553 013606 00C001 1 :SECOND DATA WORD 
3554 013610 000000 0 ; THIRD DATA WORD 
44 013612 000000 0 sFOURTH DATA WORD 
6 
3557 013614 004037 033164 JSR RO, @#CLAREA sCLEAR 4 WORDS, FROM WRFROM+<4#2> 
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3558 013620 002400 
3559 013622 000004 
3560 013624 000001 
3561 
3562 
3563 
3564 
3565 013626 004037 
3566 013632 002172 
3567 013634 000000 
3568 
3569 
3570 013636 004037 
3571 013642 002174 
3572 013644 003454 
3573 
3574 
3575 013646 004037 
3576 013652 002200 
3577 013654 004272 
3578 
3579 
3580 013656 004037 
3581 013662 002204 
3582 013664 000002 
3583 
3584 
3585 

586 

3587 
3588 
3589 013666 004037 
3590 

3591 013672 004512 
3592 013674 002254 
3593 013676 000022 
3594 013700 013704 
4.44 013702 013710 
3597 013704 104031 
3598 013706 000207 
3599 

3600 

3601 

3602 

3603 

3604 

3605 

3606 013710 

3607 

3608 013710 004037 
3609 013714 002370 
3610 013716 003434 
3611 013720 000010 
3612 013722 013726 
30135 013724 013732 


033216 


033216 


033216 


033216 


034312 


035342 


3$: 


4$: 
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SEARCH COMMAND 
en ee 
1 


sSTARTING FROM WRF ROM+<4#2> 
34 WORDS 
sFILL WITH 1 


s*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, a#F ILLRE 
— C 


JSR RO, a#F ILLRE 
RHBA 

REINTO+<8.*2> 

JSR RO,@#F ILLRE 


RHCS1 
4272 


JSR RO, OF ILLRE 
ee 


MOV 0 INTO SAVED RHWC 
_— REGISTER TO CHANGE 


>MOV REINTO+<8.*2> INTO SAVED RHBA 
; SAVED wy ot gy TO CHANGE 


MOV 4272 INTO SAVED RHCS1 
Jota ig REGISTER TO CHANGE 


;MOV 2 INTO SAVED RHDST 
Seer REGISTER TO CHANGE 


> *COMPARE REGISTER BEFORE READ HEADER AND DATA 
;*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG 
SAVERE 


wC 
18. 
3$ 
4$ 
ERROR 31 
RTS PC 


;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 

;RETURN TO 4$ ON NO ERROR 


;READ HEADER AND DATA CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


:*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 


;*THE READ WAS GOOD 


JSR RO, a#COMPAR 
WRF ROM 


;COMPARE TWO BLOCKS OF MEMORY 
:GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
38., WORDS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 
;RETURN TO 6% ON NO ERROR 





SEQ 0077 


N 6 
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& : 
3616 013726 104053 5$: ERROR 53 ;READ HEADER AND DATA 
3617 013730 000207 RTS PC AFTER A SEARCH CAUSED 
361 ;AN ERROR 


8 
eh 013732 6$: 
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3621 
3622 sp teeeereeeernrererererarerrrererrerteerateeeeeeHeraeEteeearenEse 
og ty seTEST 13 SEARCH COMMAND 
3625 :¢ THE ONLY THING NEW IN THIS TEST IS AN IMPLIED SEEK 
3626 :° IN A SEARCH COMMAND 
3627 ;* THE HEADS START FROM CYLINDER 10 BY A SEEK 
3628 :* COMMAND THEN A SEARCH SECTOR 0 TRACK 0 CYLINDER 0 
3629 if 1S GIVEN 
3630 ie THEN A READ COMMAND IS GIVEN FOR 
3631 ;f CYLINDER 0, TRACK 0, SECTOR 1 
3632 i TIME FOR THE READ IS THE ONLY INDICATOR 
7037 ;* OF CORRECT SEARCH 
3635 pptteeeerererereerererererereeeeeereteneneeeenneKeeeReneeneenenes 
3636 013732 000004 1$113: SCOPE 
3637 913734 012706 001000 MOV WSTACK,SP sRESET STACK 
7038 013740 012737 000013 004504 Moy #13, aaTSTNM :SAVE TEST NUMBER 
3640 013746 004737 033314 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
3641 :R3-RHDS1, R4-RHER] 
3642 GIVE RH-11 INITIALIZE 
3643 :SETUP UNIT NUMBER 
3644 
3645 :*GET THE HEADS TO CYLINDER 10 ; 
3646 013752 004737 033374 JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
3647 ‘AND THAT ALL STATUS BITS ARE = 0 
3648 013756 104401 057465 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 
3649 013762 000000 HALT :STOP TEST 
3650 013764 013777 004506 166174 MOV OMRP4VEC, ARPVEC ;SET RPO4 VECTOR ADDRESS 
3651 TO 'TIME1' IF P=CLOCK 1S PRESENT 
3652 “OR TO 'TIME2' IF P=CLOCK 1S NOT THERE 
3653 :*TIME’ WILL ONLY SAVE 
3654 CURRENT CYLINDER ADDRESS 
3033 AND LOOK AHEAD REGISTERS 
3657 013772 004037 033264 JSR RO, a#SEEKCY :SEEK FOR 
3658 013776 000012 10. CYLINDER 10. 
see 
3661 014000 013746 002352 MOV Qa#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 
3662 014004 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
3663 sENABLE INTERRUPT 
3664 014010 012677 1660164 MOV (SP)+,@RHCS1 :G0 WITH 
3665 :4 IN RHCS1 FOR SEEK 
eee WITH INTERRUPT ENABLED 
3668 014014 104413 WAT sWAIT FOR DRY BIT TO SET 
3669 014016 002222 RHDS1 sWALT FOR RHDS1 REGISTER 
3670 014020 000200 DRY sWAIT. FOR DRY BIT IN RHDS1 REGISTER 
3671 014022 015530 7000. sALLOW 70000 gin SECONDS 
3672 014024 000043 35. sDRY MUST SET BETWEEN 
3th 69650 AND FOse0. MICRO SECONDS 
674 
3675 : StFILL REGISTERS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH 


a 





ann 
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3677 014026 004737 033314 JSR PC ,a#CLDISK :SET R1-RHCS1, R2- sRHCS2 
3678 : *R3-RHDS1, R4G-RHER 
3679 « “GIVE RH-11 INITIALIZE 
et - $SETUP UNIT NUMBER 
3682 014032 004037 035276 JSR RO, @#RUN & :SETUP TO RUN FOR DATA COMMAND 
3683 014036 000000 0 sCYLINDER 0 
3684 014040 000 -BYTE 0 *SECTOR 0 
3685 014041 000 BYTE 0 STRACK 0 
3686 014042 177770 -8. sWORD COUNT = 8. 
3687 014044 003434 RE INTO :BUS ADDRESS 
3688 :STARTING ADDRESS OF DATA 
3689 ‘BUFFER = REINT 
3690 014046 000000 0 :D0 NOT INHIBIT ous ADDRESS INCREMENT 
3691 014050 014000 ECL! FMT22 16 BITS PER WORD FORM 
3692 s INHIBIT ECC CORRECTION 
3693 ‘DO NOT INHIBIT HEADER COMPARE 
3694 014052 002334 ‘ SERCH ‘GET READY TO DO A SERCH 
3695 sSEARCH WITH 30 IN RHCS1 
3696 
3697 ? 
3698 :*SAVE REGISTERS FOR COMPARISON AFTER SEARCH 
3699 s*AND READ HEADER AND DATA 
3700 014054 004037 033462 JSR RO, a#SAVER :SAVE REGISTERS 
3701 014060 002172 RHWC :RHWC 1S THE FIRST REGISTER SAVED 
3702 014062 004512 SAVERE sSTARTING ADDRES OF WHERE 
3703 sTHE REGISTERS ARE SAVED 
3704 014064 000022 18. NUMBER OF REGISTERS 
3705 :SAVED = 18. 
3706 
3707 :*NOW GIVE THE SEARCH COMMAND 
3708 014066 004737 033374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
3709 sAND THAT ALL STATUS BITS ARE = 0 
3710 014072 104401 057465 TYPE ,CPHALT sGANNOT CONTINUE TESTING IF NOT 
3711 014076 000000 HALT :STOP TEST 
arg 014100 012777 014264 166060 MOV #3$,,ARPVEC s INTERRUPT VECTOR SET TO 3$ 
3714 014106 004037 033244 JSR RO, a#SRCH :SEARCH FOR 
3715 014112 000000 0 sCYLINDER 0 
3716 014114 000 .BYTE 0 sSECTOR 0 
vit 014115 000 BYTE 0 sTRACK 0 
3719 014116 013700 002334 MOV a#SERCH,RO EXPECTED CONTENTS OF RHCS1 
3720 s IMMEDIATELY AFTER GO 
3721 014122 052700 004301 BIS #DVAIRDY!IE'GO,RO ;EXPECTED BITS IN RHCS1 
3722 014126 012705 010500 MOV WMOL'PPRiVV.RS sEXPECTED BITS IN RHDS1 
3723 s IMMEDIATELY AFTER GO 
3138 
3726 014132 013746 002334 MOV QMSERCH,-(SP) ;GET READY TO MOVE COMMAND 
3727 014136 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
3728 sENABLE INTERRUPT 
3729 014142 012677 166032 MOV (SP)+,@RHCS1 360 WITH 
3730 sWITH INTERRUPT ENABLED 
3731 014146 021100 CMP ari,RO :1$ RHCS1 GOOD 
3732 014150 001413 BEQ 1$ :BRANCH IF GOOD 


on 


Pat 
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3733 014152 011137 001126 MOV aR! ,a#SBDDAT :BAD DATA FOR RHCS1 
3734 014156 010037 001124 MOV RO, a#$GDDAT D DATA 
3735 014162 010137 004500 MOV R1,@#REGADR ; 17 Se REGISTER RHCS1 
3736 014166 012737 000340 000036 MOV 4340 aH TRAPVEC #2 ;TRAP PRIORITY = 7 
3737 014174 104021 ERROR 21 ;DURING SEARCH COMMAND 
3738 :CONTENTS OF RHCS1 WAS 
3739 ;NOT AS EXPECTED 
3740 014176 000414 BR 2$ ;1F LAST ERROR 21 OCCURRED ‘ 
3741 :THEN DO NOT CHECK RHDS1 re, 
3742 :AS TOO MUCH TIME HAS 
gree ; PASSED 
3745 014200 021305 1$: CMP @R3,R5 31S RHDS1 GOOD 
3746 014202 001412 BEQ 2% ;BRANCH IF GOOD 
3747 014204 011337 001126 MOV OR3,a#SBODAT ;BAD DATA FOR RHDS1 
3748 014210 010537 001124 MOV R5 ,@#$GDDAT GOOD DATA 
3749 014214 010337 004500 MOV R3,Q#REGADR sFAILING REGISTER RHDS1 
3750 014220 012737 000340 000036 MOV #340 ,aM#TRAPVEC+2 ; TRAP PRIORITY = 7 
3751 014226 104063 ERROR 63 ;DURING SEARCH COMMAND 
3752 ;CONTENTS OF RHDS1 WAS 
shee ;1N CORRECT 
3755 014230 013737 002350 004652 2%: MOV Q@#REFOR,@#TMPO ;SAVE READ HEADER AND DATA 
3756 014236 052737 000101 004652 BIS W1E!GO,a#TMPO ; INCLUDE INTERRUPT ENABLE, GO 
ref 014244 012737 000001 004660 MOV #1 ,a#TMPS ;SAVE TRACK 0, SECTOR 1 
44 *THIS 1S ONLY A WAIT LOOP 
3761 014252 104413 WAT ;WAIT FOR RDY BIT TO SET 
3762 014254 002222 RHDS1 ;WAIT FOR RHDS1 REGISTER 
3763 014256 000200 RDY ;WAIT FOR RDY BIT IN RHDS1 REGISTER 
3764 014260 015530 7000. ;ALLOW 70000 bb SECONDS 
3765 014262 000043 35. ;RDY MUST SET BETWEEN 
3708 69650 AND 70380 MICRO SECONDS 
3768 014264 012737 000200 000036 3%: MOV #200 ,a#TRAPVEC+2 ; TRAP PRIORITY = 
3769 014272 012737 000000 177776 MOV #0,PS ;SET PROSESSOR STATUS TO 0 
3770 014300 013777 004660 165676 MOV QWTMPS,ARHDST ;SET DESIRED SECTOR/TRACK 
gr) ;REGISTER TO SECTOR 1, TRACK 0 
3773 014306 013777 004506 165652 MOV O#RP4VEC,ARPVEC sae RPO4 VECTOR ADDRESS 
3774 :10 "TIME1’ IF P=CLOCK IS PRESENT 
3775 ‘OR TO 'TIME2’ iF P-CLOCK IS NOT THERE 
3776 ;'TIME' WILL ONLY SAVE 
3777 ;CURRENT CYLINDER ADDRESS 
3778 ;AND LOOK AHEAD REGISTERS 
3779 014314 013711 004652 MOV a#vTMPO,aRt ;FILL RHCS1 WITH READ COMMAND 
3780 ; TOGETHER WITH INTERRUPT ENABLE 
3B ;AND GO “ 
3783 :*TIME ALLOWED HERE IS CRITICAL ANY TIME ERROR 
Hh :*INDICATES WRONG SEARCH IN THE SEARCH COMMAND 
3786 014320 104413 WAT ;WALT FOR RDY BIT TO SET 
3787 014322 002200 RHCS1 ;WALT FOR RHCS1 REGISTER 
3788 014324 000200 RDY ;WALT FOR RDY BIT IN RHCS1 REGISTER 


on 
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3789 014326 000225 
3790 014330 000002 
3791 
3792 
3793 
3794 
3795 014332 004037 
3796 014336 002370 
3797 014340 000004 
3798 014342 010000 
3799 014344 000001 
3800 014346 000000 
3801 014350 000000 
3802 
3803 014352 004037 
3804 014356 002400 
3805 014360 000004 
3806 014362 000001 
3807 
3808 
3809 
3810 
3811 014364 004037 
3812 014370 002172 
3813 014372 000000 
3814 
3815 
3816 014374 004037 
3817 014400 002174 
3818 014402 003454 
3819 
3820 
3821 014404 004037 
3822 014410 002200 
3823 014412 004272 
3824 
3825 
3826 014414 004037 
3827 014420 002204 
3828 014422 000002 
3829 
3830 
3831 014424 004037 
3832 014430 002234 
3833 014432 000000 
3834 
3835 
3836 
3837 
3838 
3839 
3840 014434 004037 
3841 
3842 014440 004512 
3843 014442 002254 
3844 014444 000022 


08:52 


033140 


033164 


033216 


033216 


033216 


033216 


033216 


034312 


ae 
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SEARCH COMMAND 


149, 
é. 


SEQ 0082 


;ALLOW 1490 MICRO SECONDS 
;RDY MUST SET BETWEEN 
71470 AND 1510 MICRO SECONDS 


;*WRITE FROM BUFFER WILL BE FILLED WITH EXPECTED DATA 


JSR RO, a#FLHEAD 
‘sabes: 


‘whee 

0 

0 

JSR RO,@#CLAREA 
ghamucheesf 


1 


;SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
FIRST DATA WORD 

;SECOND DATA WORD 

; THIRD DATA WORD 

;FOURTH DATA WORD 


CLEAR 4 rrantl FROM WRFROM+<4*2> 
i STA RTING FROM WRFROM+<4#2> 
:4 WORDS” 


sFILL WITH 1 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,a#F ILLRE 
per 


JSR RO,@#FILLRE 
RHBA 
REINTO+<8. #2> 


JSR ' RO,a#F ILLRE 


JSR , RO,a#F ILLRE 


JSR RO, @#FILLRE 
RHCC 


;MOV 0 INTO SAVED RHWC 
betty REGISTER TO CHANGE 


:MOV REINTO+<8.*2> INTO SAVED RHBA 
; SAVED REGISTER TO CHANGE 


;MOV 4272 INTO SAVED RHCS1 
ere REGISTER TO CHANGE 


;MOV 2 INTO SAVED RHDST 
oor REGISTER TO CHANGE 


;MOV 0 INTO SAVED RHCC 
+4) REGISTER TO CHANGE 


> *COMPARE REGISTER BEFORE READ HEADER AND DATA 
:*WITH REGISTERS AFTER COMMAND 


JSR RO, a#COMREG 
SAVERE 

wC 

18. 


;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE" 
:TEST DATA STARTING FROM ‘RHWC' 
;18. REGISTERS TO BE COMPARED 


on 
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014446 
014450 


014452 
014454 


014456 


014456 
014462 
014464 
014466 
014470 
014472 


014474 
014476 


014500 


014452 
014456 


104031 
000207 


004037 
002370 
003434 
000010 
014474 
014500 


104053 
000207 


08:52 


035342 


4$: 


5$: 


6$: 


7$: 
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SEARCH COMMAND SEQ 0085 
4$ ;RETURN TO 4$ ON ERROR 
5$ ;RETURN TO 5$ ON NO ERROR 
ERROR 31 ;READ HEADER AND DATA CAUSED 
RTS PC ; IMPROPER REGISTER CHANGE 


;G00D pe GIVES WHAT SHOULD 


;BE THERE 
;RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER COMMAND 


;*NOW READ INTO — WILL BE CHECKED TO SEE 
;*THE READ WAS GOOD 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRF ROM 
REINTO TEST DATA STARTS FROM REINTO 
8. ;8., WORDS TO BE COMPARED 

6$ ;RETURN TO 6$ ON ERROR 

7$ RETURN TO 7$ ON NO ERROR 
ERROR 53 ;READ HEADER AND DATA 

RTS PC ;AFTER A SEARCH CAUSED 

;AN ERROR 





om 
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3876 
3877 ppeeeeeeerererrereeerettrererereeerereeereeeeAeeeeeeeeeeterereees 
3878 7* THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER 0 
3879 :* TRACKO AND PUTS SECTOR 9 THERE. 
3880 :* HENCE THE PACK IS UNFORMATTED FROM 
3881 :* THIS POINT ON TO THE TEST WHEN SECTOR 
3882 7* 1 1S REPLACED. IF TESTING 1S STOPPED WITH 
3883 :* AN ERROR IN THE SECTION OF THE PROGRAM BETWEEN 
3884 :* THIS AND WHEN SECTOR 1 IS REPLACED THEN THE 
3885 :* DISK BEING USED MAY HAVE BEEN UNFORMATTED 
3886 7* 1F THE LAST PASS OF THIS PROGRAM GIVES 
3887 Hi NO ERRORS IN THIS SECTION THEN THE DISK 
3888 ;* MAY NOT HAVE BEEN UNFORMATTED. HOWEVER IT 
3889 7* 1S RECOMMENDED THAT AFTER A PASS OF THIS 
3890 :e PROGRAM THE DISK BE REFORMATTED. 
3891 ppeteeeeeereerrereeereeeereeteeteeeeeKeeeeeKeee eee ee ATA eee Tee 
3892 
3893 
3894 
3895 
3896 
3897 
3898 PLeeeeeeeeeeeeeeeeeeeeeeereeeeeeeeeeeeeATeKeKeKe eee eee eee 
444 s*TEST 14 HEADER COMPARE ERROR - RHERI BIT #7 (HCE) 
3901 se WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1 
3902 3* AND PUT SECTOR 0 THERE ON CYLINDER 0 
3903 3° THEN A READ DATA IS GIVEN FOR SECTOR] 
3904 7* HCE- BIT #7 IN RHER1 SHOULD SET. 
3905 ;* ALL REGISTERS ARE CHECKED 
3906 ie ANY DATA READ IS CHECKED 
3908 Ppeeeeeeeeeeeteteeeeteeeereteee eee r eee eee eee TEETER 
3909 014500 000004 TST14: SCOPE 
3910 014502 012706 001000 MOV #STACK,SP ;RESET STACK 
so 014506 012737 000014 004504 MOV #14,a#TSTNM ;SAVE TEST NUMBER 
3913 014514 004737 033314 JSR PC ,a#CLDISK 7SET RI-RHCS1, R2-RHCS2 
3914 ;R3-RHDS1, R4-RHERI 
3915 sGIVE RH-11 INITIALIZE 
so1f ;SETUP UNIT NUMBER 
1 
S19 stFILL WRITE FROM BUFFER WITH HEADER 
91 a 
3920 014520 004037 033140 JSR RO,a#F LHEAD ;SAVE HEADER DATA IN WRFROM 
3921 014524 002370 WRF ROM ;LOCATION WHERE SAVED 
3922 014526 000005 5 sNUMBER OF WORDS SAVED 
3923 014530 010000 10000 ;FIRST DATA WORD 
3924 014532 000000 0 : SECOND DATA WORD 
3925 014534 000000 0 ; THIRD DATA WORD 
3926 014536 000000 0 sFOURTH DATA WORD 
453 014540 000001 1 sFIFTH DATA WORD 
3929 s*FILL READ INTO BUFFER WITH ALL ONES 
3930 


aon 


7 
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&6 
CZRJID.P 28-MAR-79 08:52 114 HEADER COMPARE ERROR - RHER1 BIT #7 (HCE) SEQ 0085 
3932 014542 004037 033164 JSR RO, @#CLAREA CLEAR 256. WORDS, FROM REINTO 
3933 014546 003434 REINTO STARTING FROM REINTO 
3934 014550 000400 256. 3256. WORDS 
3935 014552 177777 1 sFILL WITH -1 
3936 
3937 
4 ;*WRITE HEADER AND DATA IS LOADED 
3940 014554 004037 035276 JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
3941 014560 000000 0. CYLINDER 0. 
3942 014562 001 OVTE FT, ;SECTOR 1. 
3943 014565 000 -BYTE 0. ; TRACK 0. 
3944 014564 177773 “1-4 :WORD COUNT (DATA) = 1 ¢ 
3945 4 HEADER WORDS 
3946 014566 002370 WRF ROM BUS ADDRESS 
3947 STARTING ADDRESS OF DATA 
3948 ‘ ;BUFFER = WRFROM 
3949 014570 000000 0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
3950 014572 010000 FMT22 ;16 BITS PER WORD FORMAT 
3951 ;D0 NOT INHIBIT ECC CORRECTION 
3952 ;D0 NOT INHIBIT HEADER COMPARE 
3953 014574 002344 WRIFOR ;GET READY TO DO A WRIFOR 
3954 ;WRITE HEADER AND DATA WITH 62 IN RHCS1 
3955 
3956 
444 *NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 
3959 014576 004037 033462 JSR RO, @M#SAVER ;SAVE REGISTERS 
3960 014602 002172 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
3961 014604 004512 SAVERE STARTING ADDRES OF WHERE 
3962 ; THE REGISTERS ARE SAVED 
3963 014606 000021 17. ;NUMBER OF REGISTERS 
9g: ;SAVED = 17. 
6 
3966 014610 004737 033374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
3967 ;AND THAT ALL STATUS BITS ARE = 0 
3968 014614 104401 057465 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 
as 014620 000000 HALT ;STOP TEST 
3971 014622 013777 004506 165336 MOV OMRP4VEC ,ARPVEC 4% RPO4 VECTOR ADDRESS 
3972 TO 'TIME1' IF P-CLOCK IS PRESENT 
3973 TOR TO "TIME2’ IF P=CLOCK IS NOT THERE 
3974 :'TIME' WILL ONLY SAVE 
3975 ;CURRENT CYLINDER ADDRESS 
3976 ;AND LOOK AHEAD REGISTERS 
3977 
3978 
3979 014630 013746 002344 MOV @#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
3980 014634 052716 000101 BIS WGOLIE, (SP) ;GET READY TO SET GO AND 
3981 ENABLE INTERRUPT 
3982 014640 012677 165334 MOV (SP)+,@RHCS1 ;GO WITH 
3983 362 IN RHCS1 FOR WRITE HEADER AND DATA 
3984 sWITH INTERRUPT ENABLED 
3985 


3986 s*TIME 1S NOT CRITICAL 





Ce ee 


srw RPOG/5/6 FCTNL CTRLR2 MACYI1 1 hada 


D.P11 28-MAR-79 
3988 014644 104413 


3992 014654 004704 


3997 014656 004037 
3998 014662 002172 
3999 014664 000000 


4002 014666 004037 
4003 014672 002174 
4004 014674 002402 


4007 014676 004037 
4008 014702 002204 
4009 014704 000002 


4015 014706 004037 


4017 014712 004512 
4018 014714 002254 
4019 014716 000021 
4020 014720 014724 
4021 014722 014730 


4023 014724 104027 
4024 014726 000207 


08:52 


033216 


035216 


033216 


034312 


.* 
25-MAY-79 10:48 PAGE 8&7 
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HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) SEQ 0086 
WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 

2500. ;ALLOW 25000 MICRO SECONDS 


>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO,a#F ILLRE ;MOV 0 INTO SAVED RHWC 

_" we Sty REGISTER TO CHANGE 

JSR RO, OF ILLRE ;MOV WRFROM+<5*2> INTO SAVED RHBA 
RHBA ; SAVED REGISTER TO CHANGE 
WRFROM*+<5#2> sDATA 


JSR RO,a#F ILLRE ;MOv 2 INTO SAVED RHDST 
— ot REGISTER TO CHANGE 


;*COMPARE ALL REGISTERS 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE* 

wC TEST DATA STARTING FROM ‘RHWC' 

17. 317. REGISTERS TO BE COMPARED 

1$ RETURN TO 1$ ON ERROR 

2% ;RETURN TO 2$ ON NO ERROR 


ERROR 27 ;WRITING HEADER AND DATA CAUSED 
RTS PC 

; IMPROPER REGISTER CHANGE 

;GOOD DATA GIVES WHAT 

;SHOULD BE THERE 

RECEIVED DATA GIVES WHAT 


2500. =RDY MUST SET BETWEEN 
[00 AND 50000 MICRO SECONDS 
“WAS THERE AFTER WRITE 


CZRJJDO, RPOG/5/6 FCTNL CTRLR 
9 08:52 
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014730 
014730 


014734 
014740 
014742 
014744 


014746 


014760 


014762 
014764 


014766 


014770 
014774 
014776 


015000 


015002 


015006 
015012 


015014 


28-MAR-7 


004737 


004037 
002370 
000400 
177777 


004037 
wae * 


003434 


000000 
010000 


002346 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


2 


033314 


033164 


035276 


033462 


033374 
057465 


004506 


MACY11 —— 


165144 


23: 
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25-MAY-79 10:48 PAGE 8&8 
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE) 


sYeaces DATA WILL BE DONE ON CYLINDER=0, SECTOR=1, 
K= 
stFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR PC ,a#CLDISK sSET RI-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHERI 
sGIVE RH=-11 INITIALIZE 


; SETUP UNIT NUMBER 


JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM 
WRF ROM STARTING FROM WRFROM 

256. 3256. WORDS 

1 sFILL WITH =1 


;*READ COMMAND IS LOADED 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 sCYLINDER 0 

OVTE Tf. SECTOR 1. 

-BYTE 0 ; TRACK 0 

-1 ;WORD COUNT = 1 

REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

:BUFFER = REINTO 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 

;DO0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 
READAT ;GET READY TO DO A READAT 

;READ DATA WITH 70 IN RHCS1 


> *SAVE REGISTERS FOR COMPARISON AFTER READ DATA 
JSR RO, a#SAVER ;SAVE REGISTERS 


RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 

; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 

;SAVED = 18. 


JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 

TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 

HALT ;STOP TEST 


MOV Q#RP4VEC ,ARPVEC 4+ % RPO4 VECTOR ADDRESS 
TO 'TIME1’ IF P=CLOCK IS PRESENT 
SOR TO 'TIME2* IF P-CLOCK IS NOT THERE 
:'TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


SEQ 0087 


om 
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015022 
015026 


015032 


015036 
015040 
015042 
015044 
015046 


— 
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013746 
052716 


012677 


104413 
002200 
000200 
010110 
001502 


004037 
002222 


000002 
000001 
100000 
000001 
040000 


004037 
002200 


000002 


040006 


004037 
002202 


000001 
000001 
000200 


004037 


002204 
000002 


053737 


CTRLR2 MACY) oo 


08:52 


002346 
000101 


165142 


034204 


034204 


034204 


033216 


004644 004536 





K 7 
25-MAY-79 10:48 PAGE &9 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) 


MOV Q@#READAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)*,@RHCS1 360 WIT 


ITH 
370 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 


:*TIME 1S NOT CRITICAL 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
4168. ; ALLOW 41680 MICRO SECONDS 

834. RDY MUST SET BETWEEN 


33340 AND 50020 MICRO SECONDS 
>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 CHANGE RHDS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 

ATA ;CHANGE ATA BIT 

1 ;NEW VALUE OF ERR IS | 

ERR ;CHANGE ERR BIT 

JSR RO, O#CHREG CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF SC 1S 1 

sc ;CHANGE SC BIT 

1 NEW VALUE OF TRE IS 1 

TRE ; CHANGE TRE BIT 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHER i ;CHANGE RHER1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF HCE IS 1 

HCE ;CHANGE HCE BIT 

JSR RO, a#F ILLRE ;MOV 2 INTO SAVED RHDST 

yee berry REGISTER TO CHANGE 


BIS Q#ATTENT, atamaae>t > SET APPROPIATE “ATA B1iS 
FOR WORKING DRIVE IN 
:SAVED RHAS LOCATION 


;*COMPARE ALL REGISTERS 


SEQ 0088 





= 


CZRJJDO, RPOG/5/6 FCTINL CTRLR2 MACY) toe 
28-MAR-79 
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004037 
004512 


015164 


104047 
000207 


004037 
0 


015206 


104050 
000207 


08:52 
034312 


035342 


3$: 


4$: 


5$: 
6$: 


*. 
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HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) SEQ 0089 
JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 
we ;TEST DATA STARTING FROM ‘RHWC’ 
18. 118. REGISTERS TO BE COMPARED 
3$ :RETURN TO 3$ ON ERROR 
4% ;RETURN TO 4$ ON NO ERROR 
ERROR 47 ;READING ON NON EXISTANT SECTOR 
RTS PC 


;CAUSED AN ERROR 

;GOOD DATA GIVES WHAT SHOULD 
:BE THERE 

RECEIVED DATA GIVES WHAT 
WAS THERE AFTER READ 


;*READ DATA WILL Be COMPARED 


JSR RO,a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRFROM 
REINTO TEST DATA STARTS FROM REINTO 
256. 3256., WORDS TO BE COMPARED 

5$ ;RETURN TO 5$ ON ERROR 

6% ;RETURN TO 6$ ON NO ERROR 

ERROR 50 ;DATA READ FROM NON 

RTS PC sEXISTANT SECTOR CAUSED AN ERROR 


CZRIJD.P11 
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015206 
015210 
015214 


015222 


ooooo°ocKeo 
ot tk at a st a 
Retuethonetetotehonhe 
. 
oO 
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000004 
012706 
012737 


004737 


004037 


000001 


004037 
003434 
000400 
177777 


004037 
000000 
001 
000 
177772 
002370 


000000 
010000 


001000 
000015 


033314 


033140 


033164 


035276 


004504 


7 
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HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) SEQ 0090 


,yeteeeerererererereerererererererereeerereeeeeeeeKeeeAReeeeATe ee 


TEST 15 HEADER COMPARE ERROR - RHER! BIT #7 (HCE) 


eee ne 8 82 8B 8 


WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1 

AND PUT SECTOR 0 ON CYLINDER 

ron 206 wae _— 1S GIVEN FOR SECTOR 1, TRACK 0, CYLINDER 0 
HCE = BIT 7 IN RHER1 SHOULD SET 

ALL REGISTERS ARE CHECKED 

THEN A READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER 0 

1S GIVEN, HCE = BIT 7 SHOULD SET AND ALL 

HEADER AND DATA SHOULD BE READ 


MARAT eeeeeeeeeeeeeeerereeeteteeeeeAteeeeekeeeeeereeeeee 


1S115: 


SCOPE 

MOV STACK ,SP ;RESET STACK 

MOV #15,a#TSTNM ;SAVE TEST NUMBER 

JSR PC ,a#CLDISK 7SET R1I-RHCS1, R2-RHCS2 


3R3-RHDS1, R4-RHERI 
:GIVE RH-i1 INITIALIZE 
; SETUP UNIT NUMBER 


s*FILL WRITE FROM BUFFER WITH HEADER AND DATA 


JSR RO, a#F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

6 :NUMBER OF WORDS SAVED 
10000 | FIRST DATA WORD 

0 _ SECOND DATA WORD 

0 ;THIRD DATA WORD 

0 | ;FOURTH DATA WORD 

1 SFIFTH DATA WORD 

1 SIXTH DATA WORD 


s*FILt pend into BUFFER WITH ALL ONES 


JSR RO, @MCLAREA :CLEAR 256. WORDS, FROM REINTO 
REINTO | :STARTING FROM REINTO 
256. :256. WORDS 

=| SFILL WITH =1 


| 
| 


| 
;*WRITE HEADER AND DATA IS LOADED 
;SETUP TO RUN FOR DATA COMMAND 


JSR RO, Q#RUN 

0 CYLINDER 0 

-BYTE /1 ;SECTOR 1 

-BYTE | 0 ; TRACK 0 

-2-4 ;WORD COUNT (DATA) = 2 + 
74 HEADER WORDS 

WRF ROM ;BUS ADDRESS 


: STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 716 BITS PER WORD FORMAT 


rn 


| Nn 7 
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AGE 92 
CZRJJD.P11 28-MAR-79 08:52 115 HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) SEQ 0091 
4229 ;D0 NOT INHIBIT ECC CORRECTION 
4230 ;00 NOT INHIBIT HEADER COMPARE 
4231 015304 002544 WRIFOR ;GET READY TO DO A WRIFOR 
ose ;WRITE HEADER AND DATA WITH 62 IN RHCS1 
4234 
4235 s*NOW SAVE REGISTERS FOR COMPARISON AFTER 
ogee ;*WRITE HEADER AND DATA 
4238 015306 004037 033462 JSR RO, @#SAVER sSAVE REGISTERS 
4239 015312 002172 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
4240 015314 004512 SAVERE ;STARTING ADDRES OF WHERE 
4241 ; THE REGISTERS ARE SAVED 
4242 015316 000021 17. :NUMBER OF REGISTERS 
ar | ;SAVED = 17. 
4245 015320 004737 033374 «JSR PC ,@#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 4 
4246 ;AND THAT ALL STATUS BITS ARE = 0 
4247 015324 104401 057465 TYPE »CPHALT ; CANNOT CONTINUE TESTING IF NOT 
m4 015330 000000 HALT :STOP TEST 
4250 015332 013777 004506 164626 MOV Q#RP4VEC ,ARPVEC 4+ RPO4 VECTOR ADDRESS 
4251 ;T0 ‘TIME1* IF P-CLOCK IS PRESENT 
4252 ‘OR TO "TIME2’ IF P-CLOCK IS NOT THERE 
4253 ;"TIME' WILL ONLY SAVE 
4254 ;CURRENT CYLINDER ADDRESS 
4255 ;AND LOOK AHEAD REGISTERS 
38 
4258 015340 013746 002344 . MOV Q@#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
4259 015344 052716 000101 BIS #GO'IE,(SP) ;GET READY TO SET GO AND 
4260 sENABLE INTERRUPT 
4261 015350 012677 164624 MOV (SP)+,@RHCS1 :GO0 WITH 
4262 362 IN RHCS1 FOR WRITE HEADER AND DATA 
4263 ;WITH INTERRUPT ENABLED 
4264 
eee ‘ *TIME 1S NOT CRITICAL 
4266 
4267 015354 104413 WAT | ;WAIT FOR RDY BIT TO SET 
4268 015356 002200 RHCS1 ;WAIT FOR RHCS1 REGISTER 
4269 015360 000200 RDY ra ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
4270 015362 004704 2500. sALLOW 25000 MICRO SECONDS 
4271 015364 004704 2500.. ;RDY MUST SET BETWEEN 
osie ;00 AND 50000 MICRO SECONDS 
4 
oes ;*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
4 
4276 015366 004037 033216 JSR RO, a#F ILLRE MOV 0 INTO SAVED RHWC 
4277 015372 002172 RHWC SAVED REGISTER TO CHANGE 
4278 015374 000000 0 :DATA 
Ht 
4 
4281 015376 004037 035216 JSR RO,@#FILLRE MOV WRFROM+<6*2> INTO SAVED RHBA 
4282 015402 002174 RHBA ;SAVED REGISTER TO CHANGE 
4283 015404 002404 WRFROM+<6#2> ;DATA 


socio ee 


a 
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4286 015406 
4287 015412 
4288 015414 


4293 015416 
4295 015422 


4299 015432 


4301 015434 
4302 015436 
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004037 
002204 
000002 


004037 
004512 


015440 


104027 
000207 


033216 


034312 
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25-MAY-79 10:48 PAGE 95 
HEADER COMPARE ERROR - RWER! BIT #7 (HCE) 


JSR RO, OaF ILLRE 
eee 


s*COMPARE ALL REGISTERS 
JSR RO ,a#COMREG 


;MOv 2 INTO SAVED RHDST 
A ey REGISTER 10 CHANGE 


;COMPARE SAVED REGISTERS WITH 


;PRESENT VALUE 


SAVERE 


ERROR 27 
RTS PC 


GOOD DATA SAVED iN ‘SAVERE' 


TEST DATA STARTING FROM ‘RHWC* 
17. REGISTERS . Ha COMPARED 
:RETURN TO 1$ ON ERROR 

;RETURN TO 2% ON NO ERROR 


WRITING HEADER AND DATA CAUSED 
; IMPROPER REGISTER CHANGE 


;GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
RECEIVED DATA GIVES WHAT 


;WAS THERE AFTER WRITE 





SEQ 0092 


on 


C 
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CZRJID.P11 


4313 
4314 
4315 015440 
4316 015444 
4317 015446 
4318 015450 
4319 
4320 
4321 
4322 
4323 015452 


4328 015464 


4331 015466 
4332 015470 


4335 015472 


4347 015506 


4349 015512 
4350 015516 


4352 015520 


004037 


177400 


004037 


000 
177366 
002370 


000000 
010000 


002342 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


033164 


035276 


033462 


033374 


057465 - 


004506 


002342 
000101 


164436 


PAGE 94 
HEADER COMPARE ERROR = RHER1 BIT #7 (HCE) SEQ 0093 


SS TEACE WRITE DATA WILL BE DONE ON SAME CYLINDER, SECTOR 


23: 
S*FILL WRITE FROM BUFFER WITH DATA 
JSR RO, @#CLAREA CLEAR 266. WORDS, FROM WRFROM 
WRFROM :STARTING FROM WRF ROM 
266. 266. WORDS 
177400 eetL WITH 177400 
; :*WRITE DATA COMMAND 1S LOADED 
, JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
‘BYTE 1 SECTOR 1 
BYTE 0 STRACK 0 
-266. ‘WORD COUNT = 266. 
WREROM BUS ADDRESS 
“STARTING ADDRESS OF DATA 
“BUFFER = WREROM 
0 {DO NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 16 BITS PER WORD FORM 
2 DO NOT INHIBIT ECC CORRECTION 
‘DO NOT INHIBIT HEADER COMPARE 
WRIDAT “GET READY TO DO A WRIDAT 
WRITE DATA WITH 60 IN RHCS1 
:*SAVE REGISTERS FOR COMPARISON AFTER WRITE DATA 
JSR RO, a#SAVER SAVE REGISTERS 
RHWC “RHWC 1§ THE FIRST REGISTER SAVED 
SAVERE “STARTING ADDRES OF WHERE 
“THE REGISTERS ARE SAVED 
18. “NUMBER OF REGISTERS 
SAVED = 18. 
JSR PC, aMCHECKT CHECKS DVA.RDY.MOL,DPR,DRY AND vv = 1 
‘AND THAT ALL STATUS BITS ARE = 0 
TYPE —_, CPHALT “CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 
164440 Mov AWRPGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 


TO 'TIME1’ IF P-CLOCK IS PRESENT 

OR TO 'TIME2' IF P-CLOCK 1S NOT THERE 
;'TIME’ WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!I1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;G0 WITH 


CZRJJDO, RPO4/5/6 FCTNL Fh MACY11 6s Woes 


CZRJJD.P11 
4364 
4365 
4366 
4367 
4368 
4369 015542 
4370 015544 
4371 015546 
4372 015550 
4373 015552 
4374 
4375 
4376 
4377 015554 
4378 015560 
4379 
4380 015562 
4381 015566 
4382 015570 
4383 
4384 015572 
4385 015576 
4386 015600 
4387 
4388 015602 
4389 015606 
4390 
4391 015610 
4392 015612 
4393 015614 


4398 015624 


4400 015624 
4401 015630 
4402 015632 


4405 015634 
4406 015640 
4407 015642 
4408 
4409 
4410 015644 
4411 015650 
4412 
4413 015652 
4414 015654 
4415 015656 
4416 
4417 


28-MAR-79 0 


104413 


001502 


005737 
001421 


004037 
002172 
177376 


004037 
002174 
002410 


004037 
002176 


000002 
000001 
000200 
000000 
000100 
000416 


004037 
002172 
177470 


004037 
002174 
002574 


004037 
002176 


000001 
000001 
000200 


004640 


033216 


033216 


034204 


033216 


033216 


034204 


VARI: 


VAR2: 


VARS: 


JP1: 


JP2: 


25-MAY-79 10:48 


° PAGE 95 
HEADER COMPARE ERROR - RHER1 BIT #7 (HCE) 


s*TIME IS NOT CRITICAL 


ist 
BEQ JP 


Fhe RO, a#F ILLRE 


JSR RO, OF ILLRE 
RHBA 
WRF ROM+<8, *2> 


JSR RO,a#CHREG 
RHCS2 


BR JP2 


JSR RO,@#F ILLRE 


JSR RO, @#FILLRE 
RHBA 

WRF ROM+<66. *2> 

JSR RO, a#CHREG 
RHCS2 

1 


1 
OR 


;60 IN RHCS1 FOR WRITE DATA 
;WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 

:WAIT FOR RHCS1 REGISTER 

:WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 9080 MICRO SECONDS 

:RDY MUST SET BETWEEN 

3740 AND 17420 MICRO SECONDS 


; *NOW CHANGE REGISTERS TO an VALUE 


+ RUN NING ON RH70 ? 
SIF NOT, SKIP NEXT RH70 CODE 


MOV -258. INTO SAVED RHWC 
t+ REGISTER TO CHANGE 


;MOV WRFROM+<8.*2> INTO SAVED AREA 
; SAVED REGISTER TO CHANGE 


CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS2 REGISTER 


:2 BIT/BITS TO BE CHANGED 
;NEW VALUE OF OR IS 1 
;CHANGE OR BIT 

;NEW VALUE OF IR IS 0 
CHANGE IR BIT 

SKIP NEXT RH11 CODE 


;MOV -200. INTO SAVED RHWC 
arty REGISTER TO CHANGE 


;MOV WRFROM+<66.*2> INTO SAVED RHBA 
; SAVED REGISTER TO CHANGE 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHCS2 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF OR IS 1 
;CHANGE OR BIT 


SEQ 0094 
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4420 015660 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
aes! 015664 002200 RHCS1 s CHANGE RHCS1 REGISTER 
4423 015666 000002 2 :2 BIT/BITS TO BE CHANGED 
4424 015670 000001 1 NEW VALUE OF SC 1S 1 
4425 015672 100000 sc ;CHANGE SC BIT 
4426 015674 000001 1 :NEW VALUE OF TRE IS 1 
mre 4 015676 040000 TRE CHANGE TRE BIT 
4429 015700 004037 033216 JSR RO, a#F ILLRE :MOV 2 INTO SAVED RHDST 
4430 015704 002204 RHDST SAVED REGISTER TO CHANGE 
4431 015706 000002 2 sDATA 
1035 
46434 015710 053737 004644 004536 BIS Q#ATTENT, @MSAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
4435 :FOR WORKING DRIVE IN 
rma SAVED RHAS LOCATION 
4438 015716 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
meee 015722 002202 RHER1 CHANGE RHER1 REGISTER 
44 
4441 015724 000001 1 :1 BIT/BITS TO BE CHANGED 
4442 015726 000001 1 :NEW VALUE OF HCE IS 1 
oF | 015730 000200 HCE : CHANGE HCE BIT 
4445 015732 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
ie 015736 002222 RHDS1 CHANGE RHDS1 REGISTER 
44 
4448 015740 000002 2 :2 BIT/BITS TO BE CHANGED 
4449 015742 000001 1 NEW VALUE OF ATA IS 1 
4450 015744 100000 . ATA CHANGE ATA BIT 
4451 015746 000001 1 :NEW VALUE OF ERR IS 1 
38 015750 040000 ERR ;CHANGE ERR BIT 
44 
ret :*COMPARE ALL REGISTERS 
44 
4456 015752 004037 034312 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
4457 PRESENT VALUE 
4458 015756 004512 SAVERE GOOD DATA SAVED IN ‘SAVERE' 
4459 015760 002254 we :TEST DATA STARTING FROM ‘RHWC' 
4460 015762 000022 18. :18. REGISTERS TO BE COMPARED 
4461 015764 015770 3$ RETURN TO 3$ ON ERROR 
re 015766 015774 4$ RETURN TO 4$ ON NO ERROR 
446 
4464 015770 104052 3$: ERROR 52 :WRITE DATA ON NON EXISTANT SECTOR 
4465 015772 000207 RTS PC :CAUSED IMPROPER REGISTER CHANGE 
4466 ATTEMPTED WRITE WAS ON 
6467 CYLINDER O,SECTOR 1, TRACK 0 
6468 GOOD DATA GIVES WHAT SHOULD BE THERE 
4469 ; RECEIVED DATA GIVES WHAT WAS THERE 
4470 s AFTER COMMAND 
4471 
4472 
4673 :*READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER 0 
4474 :*WILL BE ATTEMPTED 


4475 015774 4$: 


Ce 
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4476 
4477 015774 004737 033314 
4478 
4479 
4480 
4481 
4482 
4483 
4484 016000 004037 033140 
4485 016004 002370 
4486 016006 000006 
4487 016010 010000 
4488 016012 000000 
4489 016014 000000 
4490 016016 000000 
4491 016020 000001 
4492 016022 000001 
4493 
4494 016024 004037 033164 
4495 016030 002404 
4496 016032 000306 
4497 016034 000000 
4498 
4499 
4500 016036 004037 033164 
4501 016042 003220 
4502 016044 000076 
4503 016046 177777 
4504 
4505 
4506 
4507 
4508 016050 004037 033164 
4509 016054 003434 
4510 016056 000400 
4511 016060 177777 
4512 
4513 
4514 
4515 016062 004037 035276 
4516 016066 000000 
4517 016070 001 
4518 016071 000 
4519 016072 177464 
4520 
4521 016074 003434 
4522 
4523 
4524 016076 000000 
4525 016100 014000 
4526 
4527 
4528 016102 002350 
4529 
4530 
4531 


JSR 


25-MAY-79 


PC ,a#CLDISK 
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7SET R1-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHERI 
GIVE RH=11 INITIALIZE 
; SETUP UNIT NUMBER 


sTFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, a#FLHEAD 
WRF ROM 
10000 
0 
. oo 
a 
"SR RO, a#CLAREA 
WRF ROM+<6*#2> 
198. 
0 
JSR RO, a#CLAREA 


URFROM*< 204, *2> 
62. 


o| 


;*FILL READ INTO BUFFER 


JSR 


REINTO 


256. 
-1 


RO, @#CLAREA 


; SAVE HEADER DATA IN WRFROM 
;LOCATION WHERE SAVED 
;NUMBER OF WORDS SAVED 
;FIRST DATA WORD 

; SECOND DATA WORD 

; THIRD DATA WORD 

;FOURTH DATA WORD 

sFIFTH DATA WORD 

;SIXTH DATA WORD 


; CLEAR 198. WORDS, FROM WRFROM+<6*2> 
STARTING FROM WRF ROM+<6*2> 
3196. words 


FILL WITH O 


CLEAR 62. WORDS, FROM WRFROM+<204.*2> 


STARTING FROM WRFROM+<204.*2> 


262. WORDS 
sFILL WITH =1 


WITH ALL ONES 


;CLEAR 256. WORDS, FROM REINTO 
STARTING FROM REINTO 

3256. WORDS 

sFILL WITH -1 


s*FILL REGISTERS WITH READ HEADER AND DATA COMMAND 


JSR 
0 


-BYTE 
-BYTE 


-200.-4 
REINTO 


RO,a#RUN 


1 
0 


0 
ECI!FMI22 


REFOR 


;SETUP TO RUN FOR DATA COMMAND 
CYLINDER 0 
SECTOR 1 


0 
:WORD COUNT (DATA) = 200. ¢ 
34 HEADER WORDS 
;BUS ADDRESS 
+ STARTING ADDRESS OF DATA 
:BUFFER = REINTO 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER eptons 


:GET READY TO DO A REFO 
;READ HEADER AND DATA WITH 72 IN RHC(S1 


SEQ 0096 


CZRJJDO, RPO4/5/6 FCTNL 
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016116 


016122 
016126 


016130 


016136 
016142 


016146 


016152 
016154 
016156 
016160 
016162 


016164 
016170 
016172 


016174 


28-MAR-79 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 
002200 


001507 


004037 
002172 
000000 


004037 
002174 
004264 


004037 
002202 


000001 
000001 
000200 


CTRLR2 MACY11 — 
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033462 


033374 
057465 


004506 


002350 
000101 


164026 


033216 


035216 


034204 


164030 


i. = 8 
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HEADER COMPARE ERROR - RHER1 BIT #7 (HCE) SEQ 0097 
; *SAVE gigs FOR COMPARISON AFTER READ 
*HEADER AND DAT 
JSR RO S#SAVER ; SAVE REGISTERS 
RHWC :RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,@#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 


;AND THAT ALL STATUS BITS ARE = 0 
TYPE »CPHALT ;CANNOT CONTINUE TESTING IF NOT 
HALT ;STOP TEST 


MOV QWRFGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
;TO 'TIME1" IF P-CLOCK IS PRESENT 
;OR TO 'TIME2" IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@#REFOR,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO! IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 ;GO WITH 


:72 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 


s*TIME 1S NOT CRITICAL 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 


;690 AND 17470 MICRO SECONDS 
>*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, OF ILLRE sMOvV 0 INTO SAVED RHWC 

RHWC >SAVED REGISTER TO CHANGE 

0 sDATA 

JSR RO,a#F ILLRE sMOV REINTO*<204.*2> INTO SAVED RHBA 
RHBA :SAVED REGISTER TG CHANGE 
REINTO*<204.*2> DATA 

JSR RO, aa CHREG :CHANGE BITS IN SAVED REGISTER 
RHER1 sCHANGE RHER1] REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF HCE IS 1 

HCE sCHANGE HCE BIT 


pow! S etal « cin CTRLR2 MACYI1 0 17 hited 
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4588 
4589 016220 004037 034204 
cgay 016224 002222 
4592 016226 000002 
4593 016230 000001 
4594 016232 100000 
4595 016234 000001 
ts 016236 040000 
4598 016240 004037 0335216 
4599 016244 002204 
4600 016246 000002 
4601 
4602 
4603 016250 004037 034204 
4604 016254 002200 
4605 
4606 016256 000001 
4607 016260 000001 
4608 016262 140000 
4609 
4610 016264 053737 004644 
4611 
4612 
4613 
4614 
4615 
4616 
4617 016272 004037 034312 
4618 
4619 016276 004512 
4620 016300 002254 
4621 016302 000022 
4622 016304 016310 
4623 016306 016314 
4624 
4625 
4626 016310 104031 
4627 016312 000207 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4656 
4637 
4638 016314 
4639 
4640 016314 004037 035542 
4641 016320 002370 
4642 016322 003434 
4643 016324 000400 


004536 


5$: 


6$: 


25-MAY-79 10:48 
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HEADER COMPARE ERROR - RHER1 BIT #7 (HCE) 


JSR RO, a#CHREG 
RHDS1 


JSR ' RO, af ILLRE 
JSR ' RO, @#CHREG 


SC! TRE 


CHANGE BITS IN SAVED REGISTER 
CHANGE RHDS1 REGISTER 


;2 BIT/BITS TO BE CHANGED 
;NEW VALUE OF ATA IS 1 
;CHANGE ATA BIT 

;NEW VALUE OF ERR IS 1 
;CHANGE ERR BIT 


;MOV 2 INTO SAVED RHDST 
; SAVED REGISTER TO CHANGE 


; CHANGE BITS IN SAVED REGISTER 
; CHANGE RHCS1 REGISTER 


:1 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC!TRE IS 1 
;CHANGE SC!TRE BIT 


BIS Q#ATTENT,@MSAVERE+24 ;SET APPROPIATE ‘ATA' BITS 


;FOR WORKING DRIVE IN 
; SAVED RHAS LOCATION 


> *COMPARE REGISTERS BEFORE READ HEADER AND DATA 


stWITH AFTER 
JSR RO, a#COMREG 
SAVERE 


ERROR 31 
RTS PC 


> *NOW COMPARE READ DATA 
;*THE COMMAND READ ONLY 


:*AND 200 DATA WORDS 


JSR RO, a#COMPAR 
WRF ROM 

RE INTO 

256. 


;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC* 
718. REGISTERS TO BE COMPARED 
;RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


;READ HEADER AND DATA WITH 
;FORCED HEADER COMPARE ERROR 
; CAUSED ERROR 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 

;RECEIVED DATA GIVES WHAT 
WAS THERE AFTER READ 


204 WORDS, 4 HEADER WORDS 


;COMPARE TWO BLOCKS OF MEMORY 
7GOOD DATA STARTS FROM WRFROM 
sTEST DATA STARTS FROM REINTO 
3256., WORDS TO BE COMPARED 


SEQ 0098 


a 
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4644 016326 016332 7$ :RETURN TO 7$ ON ERROR 
bas 016330 016336 8$ [RETURN TO 8% ON NO ERROR 
4 
4647 016332 104034 7$: ERROR 24 ;DATA READ FROM A FORCED 
4648 016334 000207 RTS PC [HEADER COMPARE ERROR IS 
6649 INCORRECT 
4650 [GOOD DATA GIVES WHAT 
4651 :THE READ HEADER AND DATA 
4652 :SHOULD HAVE READ 
4653 :BAD DATA GIVES WHAT 
4654 WAS IN BUFFER AFTER 
4655 :READ COMMAND 

016336 





SEQ 0099 


| 
' 
beseneemennem 


cc cc rrr  _—_—_—_—_—___OO_O______O_O__O___ ee... SLSLSLSaSaSSaSaSa__Q_CcCcc_ 8G aR 


es 


pew on oe FCTNL CTRLR2 MACYI1 i he 


D.P 


016336 
016340 
016344 


016352 


016356 


016362 
016366 


016370 


016376 
016402 


016406 


016412 
016414 


016416 
016420 
016422 
016424 
016426 


016430 
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000004 
012706 
012737 


004737 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


012740 
012737 


004737 


001000 
000016 


033314 


033374 
057465 


004506 


002326 
000101 


163566 


033314 


004504 


163570 
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sper eeeereererrrrrerrrtrreerereeerereeteeeKekeKKeeeeeaKeeKereeeee 


:*TEST 16 


—s- 


BECAUSE SEARCH DOES NOT READ HEADER BUT ONLY USES SECTOR COUNTER 


HEADER COMPARE ERROR - RHERI HCE 


WITH THE HEADS ON CYLINDER 0 A SEARCH COMMAND IS GIVEN 
FOR CYLINDER 0 TRACK 0 SECTOR 1, ALTHOUGH THE HEADER 
FOR THIS SECTOR IS CHANGED TO SECTOR 0 HCE-BIT #7 

IN RHER1 SHOULD NOT SET 


‘a#eereeeereteeereeerenereeeerereeereeeeeeeteeeeeeeeeetetenerenes 


ST16: 


SCOPE 
MOV 
MOV 


JSR 


JSR 


TYPE 
HALT 


MOV 


STACK ,SP 
#16,a#TSTNM 


PC ,a#CLDISK 


PC ,a#CHECKT 
~CPHALT 


OARPGVEC ,ARPVEC 


OWRECALI,-(SP) 
#GO!IE, (SP) 


(SP)*,@RHCS1 


PC ,a#CLDISK 


RESET STACK 
; SAVE TEST NUMBER 


sSET R1I-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHER1 
GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


;*GET HEADS TO CYLINDER 0 


;CHECKS DVA,RDY,MOL,DPR,DRY AND VV 
;AND THAT ALL STATUS BITS ARE = 0 


:CANNOT CONTINUE TESTING IF NOT 
STOP TEST 


:SET RPO4 VECTOR ADDRESS 
TO 'TIME1’ IF P-CLOCK IS PRESENT 


FOR TO 'TIME2* IF P=CLOCK IS NOT THERE 
:'TIME’ WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 

GO WITH 


376 IN RHCS1 FOR RECALIBRATE 


;WITH INTERRUPT ENABLED 
SAVE RHCS1 DURING ABOVE OPERATION 
SAVE RHDS1 DURING ABOVE OPERATION 


;WAIT FOR DRY BIT TO SET 


;WAIT FOR RHDS1 REGISTER 

WALT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 56000 MICRO SECONDS 

;DRY MUST SET BET 


WEEN 
:10 AND 111990 MICRO SECONDS 


sSET RI-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHERI 
sGIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 


SEQ 0100 
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4719 
“ist s*FILL REGISTERS FOR SEARCH 
4722 016434 004037 033244 JSR RO,a#SRCH ; SEARCH FOR 
4723 016440 000000 0 CYLINDER 0 
4724 016442 001 . hi ;SECTOR 1 
4725 016445 000 BYTE 0 ; TRACK 0 
4726 
4727 
4728 s*SAVE REGISTERS FOR COMPARISON AFTER SEARCH 
4729 016444 004037 033462 JSR RO, a#SAVER ;SAVE REGISTERS . 
4730 016450 002172 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
4731 016452 004512 SAVERE STARTING ADDRES OF WHERE 
4732 THE REGISTERS ARE SAVED 
4733 016454 000022 18. ;NUMBER OF REGISTERS 
4734 ;SAVED = 18. 
4735 
4736 
4737 016456 004737 033374 JSR PC ,@#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
4738 AND THAT ALL STATUS BITS ARE = 0 
4739 016462 104401 057465 TYPE -CPHALT ;CANNOT CONTINUE TESTING IF NOT 
me | 016466 000000 HALT ;STOP TEST 
4 
4742 016470 013777 004506 163470 MOV QWRPGVEC,GRPVEC +4 RPO4 VECTOR ADDRESS 
4743 O 'TIME1’ IF P=CLOCK IS PRESENT 
4744 ‘OR TO 'TIME2* IF P-CLOCK IS NOT THERE 
4745 :'TIME’ WILL ONLY SAVE 
4746 ; CURRENT CYLINDER ADDRESS 
4747 ;AND LOOK AHEAD REGISTERS 
4748 
4749 
4750 016476 013746 002334 MOV @#SERCH,-(SP)  ;GET READY TO MOVE COMMAND 
4751 016502 052716 000101 BIS #GO!1E, (SP) ;GET READY TO SET GO AND 
4752 ;ENABLE INTERRUPT 
4753 016506 012677 163466 MOV (SP)+,@RHCS1 :GO WITh 
4754 ;WITH INTERRUPT ENABLED 
4755 016512 011100 MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
att 016514 011305 MOV AR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 
4 
4758 
4759 016516 104413 WAT ;WAIT FOR DRY BIT TO SET 
4760 016520 002222 = RHDS1 WALT FOR RHDS1 REGISTER 
4761 016522 000200 DRY ;WAIT FOR DRY BiT IN RHDS1 REGISTER 
4762 016524 001614 908. ALLOW 9080 MICRO SECONDS 
4763 016526 001507 839. DRY MUST SET BETWEEN 
he) :690 AND 17470 MICRO SECONDS 
476 
4766 7 *COMPARE CONTENTS OF RHCS! AND RHDS1 ALREADY SAVED IN 
are :*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 
4/76 
4769 016530 013746 002334 MOV Q@#SERCH,-(SP) ;SAVE COMMAND 
4770 016534 052716 004301 BIS #IE'GO!DVA!RDY, (SP) INCLUDE IE!GO!DVAIRDY 
4771 016540 011637 001124 MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 
4772 016544 022600 CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA!RDY 
4773 ;AND COMMAND SHOULD BE SET 


4774 016546 001405 BEQ 67% ;BRANCH IF GOOD 





on 


L 8 
CZRIJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 103 


CZRJJID.P11 28-MAR-79 08:52 116 HEADER COMPARE ERROR - RHERI HCE SEQ 0102 
4775 016550 010037 001126 MOV RO, a#SBDDAT ;BAD DATA 
4776 016554 010137 004500 MOV R1,Q#REGADR sFAILING REGISTER RHCS1 
4777 016560 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY 
4778 sCOMMAND AND IE!GO!DVA!RDY SHOULD BE SET 
4779 016562 012746 010500 67$: MOV #MOL !DPRIVY,=(SP) : SAVE SITs SET DURING OPERATION IN RHDS1 
4780 016566 011637 001124 MOV (SP) ,a#SGDDAT 3 SAVE FOR PRINTOUT 
4781 016572 022605 CMP (SP)+,R5 ‘DURING ABOVE OPERATION ONLY MOL!DPR' vv 
4782 ;SHOULD BE SET 
4783 016574 001405 BEQ 69% BRANCH IF GOOD 
4784 016576 010537 001126 MOV R5,a#SBDDAT ;BAD DATA 
4785 016602 010337 004500 MOV R3,Qa#REGADR sFAILING REGISTER RHDS1 
4786 016606 104063 ERROR 63 sDURING ABOVE OPERATION ONLY 
4787 ;MOL'DPR! VV SHOULD BE SET 
ares 016610 69$: 
oN s*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
4792 016610 004037 034204 JSR RO,a#CHREG s;CHANGE BITS IN SAVED REGISTER 
met 016614 002200 RHCS1 ; CHANGE RHCS1 REGISTER 
4 
4795 016616 000001 1 :1 BIT/BITS TO BE CHANGED 
4796 016620 000001 1 ;NEW VALUE OF SC IS 1 
mynd 016622 100000 sc sCHANGE SC BIT 
4799 016624 004037 034204 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
et 016630 002222 RHDS1 sCHANGE RHDS1 REGISTER 
4 
4802 016632 000001 1 :1 BIT/BITS TO BE CHANGED 
4803 016634 000001 1 sNEW VALUE OF ATA IS 1 
oe 016636 100000 ATA ;CHANGE ATA BIT 
4 
4806 016640 053737 004644 004536 BIS Q#ATTENT, @#SAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
4807 sFOR WORKING DRIVE IN 
= s;SAVED RHAS LOCATION 
4 
mt > *COMPARE REGISTERS BEFORE SEARCH WITH AFTER SEARCH 
4811 
4812 0166466 004037 034312 JSR RO, a#COMREG sCOMPARE SAVED REGISTERS WITH 
4813 sPRESENT VALUE 
4814 016652 004512 SAVERE :GOOD DATA SAVED IN ‘SAVERE’ 
4815 016654 002254 wC : TEST DATA STARTING FROM ‘RHWC' 
4816 016656 000022 18. :18. REGISTERS TO BE COMPARED 
4817 016660 016664 1$ sRETURN TO 1$ ON ERROR 
a 016662 016670 2$ sRETURN TO 2$ ON NO ERROR 
481 
4820 
4 016664 104047 1$: ERROR 47 sSEARCH TO A NON-EXISTANT 
482 
4823 016666 000207 RTS PC ;SECTOR CAUSED IMPROPER 
4824 ‘ REGISTER CHANGE 
4825 — DATA GIVES WHAT SHOULD 
4826 ;BE THERE 
4827 sRECEIVED DATA GIVES 
4828 ‘WHAT WAS THERE AFTER 
4829 > SEARCH 


4830 016670 2$: 


ony 
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4831 


on 


CZRJJDO, RPO4/5/6 FCTNL cimune MACY11 — 
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016670 
016672 
016676 


016704 


016730 
016734 


28-MAR-79 0 


000004 
012706 
012737 


004737 


004037 


000000 


004037 
002400 


001000 
000017 


033314 


033140 


033164 


004504 
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RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


3 ;tereeeerreererreerreretererterereterereneeereneeeneereneeeetere 


s*TEST 17 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


Be Be Be Be Be Be Be Be Be Oe Be Oe Se Be Be Se He Be He He Oe He Se 
eseeeeesesneneneneneneneeereteeseseeeee 


THIS REPLACES REMOVED SECTOR 


WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 
n'y 0, SECTOR 1, KEYS=0, NUMBER OF WORDS 256 WORDS 


OF 

THEN READ HEADER AND DATA FOR ABOVE. 

WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
10000,1,0.0, AND 256 OF 0 

THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
THE GO BIT, AND ALL THE REGISTERS ARE SAVED 

THEN GO IS GIVEN FOR WRITE HEADER AND DATA 


THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 


NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 
WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT 
GO BIT AND ALL REGISTERS ARE SAVED 

GO 1S GIVEN FOR TRE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA 1S COMPARED. 


MORK eeeeeeeeeeeeeeeeteeeeeeeeeeeteeteeteteeeteteeeeene 


TST17: 


SCOPE 

MOV #STACK,SP ;RESET STACK 

MOV #17, a#TSTNM SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER1 
3GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


:*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO,a#FLHEAD SAVE HEADER DATA IN WRFROM 
WRFROM ;LOCATION WHERE SAVED 

4 ;NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 

1 ;SECOND DATA WORD 


0 ; THIRD DATA WORD 
0 ;FOURTH DATA WORD 


S*FILL WRITE FROM BUFFER WITH DATA 


JSR RO,@#CLAREA :CLEAR 256. WORDS, FROM WRFROM*+10 
WRFROM+ 10 STARTING FROM WRFROM*+ 10 


SEQ 0104 


CZRJJD0, Oh aad FCTNL CTRLR2 MACYI1 st Msc 


CZRJID.P 
4888 016736 
4889 016740 
4890 
4891 
4892 
4895 
4894 
4895 
4896 
4897 
4898 016742 
4899 016746 
4900 016750 
4901 016752 
4902 016754 
4903 016756 
4904 016760 
4905 


4909 016772 


4914 016774 


4920 017006 


4932 017016 
4933 017022 
4934 017024 


4936 017026 


4939 017030 


4941 017034 
4942 017040 


28-MAR-79 08:52 


000400 
000000 


roreg H 


000000 
004037 
003444 


000400 
000000 


004037 
000000 
001 
000 
177374 
002370 


000000 
010000 


002344 


004037 
002172 
004512 


000021 


004737 
104401 


000000 


033140 


033164 


035276 


033462 


033374 
057465 


8 9 
25-MAY-79 10:48 PAGE 106 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 , SEQ 0105 


256. 3256. WORDS 
0 sFILL WITH 0 


;*NOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 
7*AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 
;*CAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

;*CHANGE WRITE FROM BUFFER 


JSR RO,a#FLHEAD ;SAVE HEADER DATA IN REINTO 


REINTO ;LOCATION WHERE SAVED 
4 ;NUMBER OF WORDS SAVED 
10000 ;FIRST DATA WORD 
1 ;SECOND DATA WORD 


0 ; THIRD DATA WORD 

0 ;FOURTH DATA WORD 

JSR RO,@#CLAREA | ;CLEAR 256. Brent FROM REINTO+10 
REINTO+10 STARTING FROM REINTO+10 
256. ;256. WORDS 

0 sFILL WITH O 


:*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
BYTE 1 ;SECTOR 1 
-BYTE 0 :TRACK 0 
-256.-4 ;WORD COUNT (DATA) = 256. + 
4 HEADER WORDS 
WRFROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 ;16 BITS PER WORD FORMAT 

:D0 NOT INHIBIT ECC CORRECTION 

;00 NOT INHIBIT eer COMPARE 
WRIFOR :GET READY TO DO A WRIFOR 

;WRITE HEADER AND DATA WITH 62 IN RHCS1 


>*NOW SAVE REGISTERS FOR COMPARISON AFTER WRITE HEADER AND DATA 


JSR RO,Q#SAVER ;SAVE REGISTERS 

RHWC sRHWC IS THE FIRST REGISTER SAVED 

SAVERE STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 

17. :NUMBER OF REGISTERS 

JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vV = 1 
;AND THAT ALL STATUS BITS ARE = 0 

TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 

HALT ;STOP TEST 


a 


Se RP04/5/6 FCTNL CTRLR2 — — 
CZRJJD.P11 28-MAR-79 08:52 


tous 017042 013777 004506 163116 


4952 017050 013746 002344 
4953 017054 052716 000101 


4955 017060 012677 163114 
4956 

4957 

4958 017064 011100 

4959 017066 011305 

4960 

4961 

4962 017070 104413 

4963 017072 002200 

4964 017074 000200 

4965 017076 001614 

4966 017100 001507 

4967 

4968 

4969 

4970 

4971 

4972 017102 013746 002344 
4973 017106 052716 004101 
4974 017112 011637 001124 
4975 017116 022600 

4976 

4977 017120 001405 

4978 017122 010037 001126 
4979 017126 010137 004500 
rs 4 017132 104021 

4 

4982 017134 012746 010500 648: 
4983 017140 011637 001124 
4984 017144 022605 

4985 

4986 017146 001405 

4987 017150 010537 001126 
4988 017154 0103357 004500 
4989 017160 104063 

4990 

4991 017162 : 66$: 
4992 

4993 

4994 

4995 004037 035216 


017162 
4996 017166 002172 
017170 000000 


a, 
25-MAY-79 10:48 PAGE 107 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


Mov OMRPGVEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
[10 ‘TIME!’ IF P=CLOCK IS PRESENT 
:OR 10 'TIME2' IF P-CLOCK 1S NOT THERE 
;' TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


SEQ 0106 


MOV O#WRIFOR,-(SP) 
BIS WGO!IE,(SP) 


MOV (SP)+,@RHCS1 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND , 
oe att INTERRUPT 


:GO WITH 

362 IN RHCS1 FOR WRITE HEADER AND DATA 
WITH INTERRUPT ENABLED 
MOV aR1,RO ;SAVE RHCS1 DURING ABOVE OPERATION 
MOV OR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR = 760 MICRO SEC 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 

839. ;RDY MUST SET BETWEEN 


:690 AND 17470 MICRO SECONDS 


> *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV QM#WRIFOR,-(SP) ;SAVE COMMAND 
BIS MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 


MOV (SP) ,@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
;AND COMMAND SHOULD BE SET 

BEQ 64% ;BRANCH IF GOOD 


MOV RO, a#$BDDAT 
MOV R1,Q#REGADR 


;BAD DATA 
sFAILING REGISTER RHCS1 


ERROR 21 ;DURING ABOVE OPERATION ONLY 
;COMMAND AND I1E!GO!DVA SHOULD BE SET 
MOV WMOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
MOV (SP), aM#$GDDAT SAVE FOR PRINTOUT 
CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR‘ VV 
;SHOULD BE SET 
BEQ 66% ;BRANCH IF GOOD 
MOV R5,a#$BDDAT :BAD DATA 


MOV R3,Q#REGADR :FAILING REGISTER RHDS1 
ERROR 65 ;DURING ABOVE OPERATION ONLY 
:MOL!DPR!VV SHOULD BE SET 


>*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, QF ILLRE ;MOV 0 INTO SAVED RHWC 
— Set) y REGISTER TO CHANGE 





Im 


CZRJJDO, RPOG/5/6 FCTNL gin se MACY11 —_ 


CZRJID.P11 28-MAR-79 0 

72 004037 033216 
002174 

00 003400 


004037 033216 
002204 
000002 


5014 017212 004037 034312 
5016 017216 004512 
5020 017226 017234 


017230 104027 
5024 017232 000207 


5033 017234 
5035 017234 opre 035342 


5040 017250 017256 


017252 104030 
5044 017254 000207 


5048 017256 
5050 017256 004737 03353514 


5055 017262 004037 033164 


2%: 


3$: 


4$: 


dD 9 
25-MAY-79 10:48 PAGE 108 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


JSR RO,a#F ILLRE 


RH ;SAVED REGISTER TO CHANGE 
WRF ROM+<260. #2> DATA 


JSR RO, a#F ILLRE ;MOV 2 INTO SAVED RHDST 
7 Ft REGISTER TO CHANGE 


;*NOW COMPARE REGISTERS BEFORE WRITE HEADER AND DATA 
s*WITH REGISTERS AFTER COMMAND 


JSR RO,a#COMREG ;COMPARE SAVED REGISTERS WITH 


;PRESENT VALUE 


<n ;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
7, 317. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1% ON ERROR 
2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 27 ;WRITE HEADER AND DATA 
RTS PC SC anee IMPROPER REGISTER 
;GOOD DATA GIVES WHAT SHOULD 


;BE THERE 
:RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER COMMAND 


;*NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
;*NOTHER GOT CHANGED 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 


REINTO ;GOOD DATA STARTS FROM REINTO 
WRF ROM ; TEST DATA STARTS FROM WRFROM 
260. 3260., WORDS TO BE COMPARED 
3$ ;RETURN TO 3$ ON ERROR 

4% ;RETURN TO 4$ ON NO ERROR 
ERROR 30 ;WRITE HEADER AND DATA 

RTS PC ; CHANGED WRITE FROM BUFFER 


>*NOW A READ HEADER AND DATA COMMAND WILL BE GIVEN 
;*READ INTO BUFFER IS FILLED WITH ONES 


JSR PC ,a#CLDISK ;SET RI-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHERI 
GIVE RH=11 INITIALIZE 
;SETUP UNIT NUMBER 


JSR RO,@#CLAREA CLEAR 260. WORDS, FROM REINTO 


;MOV_ WRFROM*+<260.*2> INTO SAVED RHBA 


SEQ 0107 


E 
CZRIJJDO, RPOG/5/6 FCTINL CTRLR2 MACY11 304(1052) 25-MAY-79 10:48 PAGE 109 
CZRJID.P11 28-MAR-79 08:52 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 SEQ 0108 
5056 017266 003434 REINTO sSTARTING FROM REINTO 
5057 017270 000404 260. +260. WORDS 
5058 017272 177777 =| sFILL WITH =! 
5059 
5060 ; 
+94 7*NOW FILL COMMAND 
5063 017274 004037 035276 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
5064 017300 000000 0 :CYLINDER 0 
5065 017302 001 BYTE 1 :SECTOR 1 
5066 017303 000 BYTE 0 s TRACK 0 
5067 017304 177374 -256.°4 sWORD COUNT (DATA) = 256. + 
5068 74 HEADER WORDS 
5069 017306 003434 REINTO :BUS ADDRESS 
5070 :STARTING ADDRESS OF DATA 
5071 :BUFFER = REINTO 
5072 017310 000000 0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
5073 017312 014000 ECL!FMT22 :16 BITS PER WORD FORMAT 
5074 : INHIBIT ECC CORRECTION 
5075 ‘D0 NOT INHIBIT HEADER COMPARE 
5076 017314 002350 REFOR :GET READY TO DO A REFOR 
5077 :READ HEADER AND DATA WITH 72 IN RHCS1 
5078 
5079 
5080 stNOW SAVE REGISTERS FOR COMPARISON AFTER READ HEADER AND DATA 
5081 017316 004037 033462 JSR RO, a#SAVER :SAVE REGISTERS 
$082 017322 002172 RHWC sRHWC IS THE FIRST REGISTER SAVED 
5083 017324 004512 SAVERE :STARTING ADDRES OF WHERE 
5084 THE REGISTERS ARE SAVED 
5085 017326 000022 18. :NUMBER OF REGISTERS 
Sone sSAVED = 18. 
5088 017330 004737 033374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
5089 :AND THAT ALL STATUS BITS ARE = 0 
5090 017334 104401 057465 TYPE ,CPHALT :CANNOT CONTINUE TESTING IF NOT 
44) 017340 000000 HALT :STOP TEST 
5093 017342 013777 004506 162616 MOV AARPGVEC ,ARPVEC : SET RPO4 VECTOR ADDRESS 
5094 :T0 'TIME1' IF P-CLOCK IS PRESENT 
5095 OR TO 'TIME2’ IF P=CLOCK IS NOT THERE 
5096 :"TIME* WILL ONLY SAVE 
5097 :CURRENT CYLINDER ADDRESS 
5098 :AND LOOK AHEAD REGISTERS 
399 
5101 017350 013746 002350 MOV QWREFOR,-(SP)  ;GET READY TO MOVE COMMAND 
$102 017354 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
5103 ENABLE INTERRUPT 
5104 017360 012677 162614 MOV (SP)+,@RHCS1 :G0 WITH 
5105 :72 IN RHCS1 FOR READ DATA 
5106 :WITH INTERRUPT ENABLED 
5107 017364 011100 MOV ari,RO :SAVE RHCS1 DURING ABOVE OPERATION 
2108 017366 011305 MOV aR3,R5 =SAVE RHDS1 DURING ABOVE OPERATION 
1 
$110 
$111 017370 104413 WAT sWAIT FOR RDY BIT 10 SET 


es 
CZRJIDO, RPOG/5/6 FCTNL CTRLR2 MACY11 17 Nat 25-MAY-79 10:48 PAGE 110 


| 
CZRJJD.P11 28-MAR-79 08:52 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 SEQ 0109 

5112 017372 002200 RHCS1 ;WAIT FOR RHCS1 REGISTER 
5113 017374 000200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
5114 017376 001614 908. ;ALLOW 9080 MICRO SECONDS 
5115 017400 001507 839. ;RDY MUST SET BETWEEN 
a :690 AND 17470 MICRO SECONDS 
5118 ;*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN. 
si36 :*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 
5121 017402 013746 002350 ; MOV @WREFOR,-(SP)  ;SAVE COMMAND 
5122 017406 052716 004101 BIS MIE!GO!DVA,(SP) ; INCLUDE IE!GO!DVA 
5123 017412 011637 001124 MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 
5124 017416 022600 CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!GO!DVA 
5125 ;AND COMMAND SHOULD BE SET 
5126 017420 001405 BEQ 67% ;BRANCH IF GOOD 
5127 017422 010037 001126 MOV RO, a#$BDDAT ;BAD DATA 
5128 017426 010137 004500 MOV R1,Q#REGADR ;FAILING REGISTER RHCS1 
5129 017432 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY 
5130 ; COMMAND AND IE!GO!DVA SHOULD BE SET 
5131 017434 012746 010500 67$: MOV WMOL !DPRiVV,-(SP) SAVE BITS SET DURING OPERATION IN RHDS1 
5132 017440 011637 001124 MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 
5133 017444 022605 CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL!DPR' vv 
5134 ; SHOULD BE SET 
5135 017446 001405 BEQ 69% ;BRANCH IF GOOD 
5136 017450 010537 001126 MOV R5,a#S$BDDAT ;BAD DATA 
5137 017454 010337 004500 MOV R3,Q#REGADR ;FAILING REGISTER RHDS1 
5138 017460 104063 ERROR 63 ;DURING ABOVE OPERATION ONLY 
5139 ;MOL!DPR!VV SHOULD BE SET 
eet 017462 69$: 

4 
gie8 > *CHEANGE SAVED REGISTERS TO EXPECTED VALUES 

4 
5144 017462 004037 033216 JSR RO, OF ILLRE ;MOV 0 INTO SAVED RHWC 
5145 017466 002172 RHWC SAVED REGISTER TO CHANGE 
5146 017470 000000 0 :DATA 
S148 

4 
5149 017472 004037 033216 JSR RO,a#FILLRE ;MOV REINTO*<260.*2> INTO SAVED RHBA 
5150 017476 002174 RHBA SAVED REGISTER TO CHANGE 
5151 017500 004444 REINTO+#+<260.*2> sDATA 
5155 
5154 017502 004037 033216 JSR RO,O#FILLRE :MOV 2 INTO SAVED RHDST 
5155 017506 002204 RHDST SAVED REGISTER TO CHANGE 
5156 017510 000002 2 ;DATA 
5157 
5158 
5159 > *COMPARE REGISTER BEFORE READ HEADER AND DATA 
5160 ;*WITH REGISTERS AFTER COMMAND 
5162 
5163 017512 004037 034312 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
5164 ;PRESENT VALUE 
5165 017516 004512 SAVERE GOOD DATA SAVED IN ‘SAVERE' 
5166 017520 002254 w¢ ;TEST DATA STARTING FROM ‘RHWC* 
5167 017522 000022 18. ;18. REGISTERS TO BE COMPARED 


C—O 0 SI 
a 


a 


6 9 

CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 111 

CZRJID.P11 28-MAR-79 08:52 117 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 SEQ 0110 
5168 017524 017530 5% ;RETURN TO 5$ ON ERROR 
3192 017526 017534 6% ;RETURN TO 6% ON NO ERROR 
5171 
5172 017530 104031 5$: ERROR 31 ;READ HEADER AND DATA CAUSED 
5173 017532 000207 RTS PC ; IMPROPER REGISTER CHANGE 
5174 ;GOOD DATA GIVES WHAT SHOULD 
5175 ;BE THERE 
5176 ;RECEIVED DATA GIVES WHAT WAS 
Sim ; THERE AFTER COMMAND 
5179 :*NOW READ INTO BUFFER WILL BE CHECKED TO SEE 
Brat ;*THE READ WAS GOOD 
gies 017534 6$: 
5184 017534 004037 035342 JSR RO, @#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
5185 017540 002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
5186 017542 003434 REINTO 7 TEST DATA STARTS FROM REINTO 
5187 017544 000404 260. 3260., WORDS TO BE COMPARED 
5188 017546 017552 7$ ;RETURN TO 7$ ON ERROR 
S190 017550 017556 10% ;RETURN TO 10% ON NO ERROR 
5191 
5192 017552 104032 7$: ERROR 32 ;WRITE HEADER AND DATA 
5193 017554 000207 RTS PC ;FOLLOWED BY A READ HEADER 
5194 ;AND DATA GAVE A READ ERROR 
5195 ERROR MAY BE IN READ OR WRITE 
5196 017556 10$: 
5197 
5198 
5199 


~~ 


8 eee 


9 
a wt RP04/5/6 +4" CTRLR2 MACY11 eo 25-MAY-79 10:48 "pA 


D.P 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 
5209 
5210 017556 
5211 017560 
5212 017564 
5213 
5214 017572 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 017576 
5225 017602 
5226 
5227 
5228 
5229 
5230 017604 
5231 017610 
5232 017612 
5233 017614 
5234 017616 
5235 017620 
5236 017622 
5237 017624 
5238 
5239 017626 
5240 
5241 017626 
5242 017632 
52435 017634 
5244 017636 
5245 017640 
5246 017642 
5247 017644 
5248 017646 
5249 
5250 
5251 017646 
5252 017652 
5253 017654 
5254 017656 


28-MAR-79 


000004 
012706 
012737 


004737 


005737 
001411 


004037 


000410 


004037 


000000 


004057 


177777 


08:52 


001000 
000020 


033314 


004636 


033140 


033140 


033164 


GE 112 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


;petereetrererererereeereereereeeterereeeAeeeeeeeeeeRtsiieeeererere 


:*TEST 20 INVALID ADDRESS ERROR = RHER1 - ‘JAE’ 
s* A WRITE HEADER AND DATA WILL BE ATTEMPTED TO CYLINDER 411./815. 
;* TRACK 0, SECTOR 0 
i* INVALID ADDRESS ERROR (IAE) BIT #10 IN RHER1 SHOULD SET 
sp eeeeeererereeeeeererererereeereererereneeeeneeeenereeneeeeeeeee 
18120: SCOPE 
MOV WSTACK,SP sRESET STACK 
004504 MOV #20,a4TSTNM :SAVE TEST NUMBER 
JSR PC ,a#CLDISK ;SET RI-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHERI 
:GIVE RH=-11 INITIALIZE 
;SETUP UNIT NUMBER 
s*CHECK THE DRIVE TYPE AND THEN FILL THE 
s*WRITE FROM BUFFER WITH APPROPRIATE HEADER 
sp eeeeeereeereererereeeeeeerererererereneeeeAeeeeeeeeerenaeeeeeNee 
TST QAMRPO6 ;TEST FOR RPO6 DRIVE 
BEQ 5$ s TREAT UNIT AS AN RPOG 
s TREAT AS AN RPO6 
sp erwetererereeeretererereeeerereeeeeAeeeKeeeeeRteeeeKAAeeneeeere 
JSR RO, a#FLHEAD ;SAVE HEADER DATA IN WRFROM 
WRFROM sLOCATION WHERE SAVED 
4 s;NUMBER OF WORDS SAVED 
11457 sFIRST DATA WORD 
0 ;SECOND DATA WORD 
0 s THIRD DATA WORD 
0 sFOURTH DATA WORD 
BR 6$ sCONTINUE WITH SET UP 
5$: 
JSR RO, @#FLHEAD sSAVE HEADER DATA IN WRFROM 
wRFROM :LOCATION WHERE SAVED 
4 sNUMBER OF WORDS SAVED 
10633 sFIRST DATA WORD 
0 sSECOND DATA WORD 
0 s THIRD DATA WORD 
0 sFOURTH DATA WORD 
6$: ; CONTINUE 
s*FILL WRITE FROM BUFFER WITH DATA 
JSR RO,a#CLAREA :CLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+10 :STARTING FROM WREROM+10 
256. 7256. WORDS 
0-1 sFILL WITH O-1 





SEQ 0111 


9 
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CZRJJD.P11 


5263 017660 
5264 017664 


5270 017666 
5271 017672 
5272 017674 
5273 017675 
5274 017676 


5276 017700 


5279 017702 
5280 017704 


5283 017706 


5298 017726 
5299 017/730 


5302 017732 


05 017734 


017734 


28-MAR-79 08:52 


005737 004636 
001412 


004037 035276 
001457 
000 
000 
177374 
002370 


000000 
010000 


002344 
000411 


004037 035276 
000633 
000 


000 
177374 
002370 


000000 
010000 


002344 


004037 033462 


INVALID ADDRESS ERROR = RHERi = "JAE" SEQ O112 


;*THE DRIVE TYPE IS CHECKED AND THE APPROPRIATE 
;*WRITE HEADER AND DATA COMMAND IS LOADED 


pp eteeererereererererererererreereeeeeereKeeeeKeKAKeeeeeeTAee eee ee 


TST @#RPO6 = ; TEST FOR RPO6 DRIVE 
BEQ 3$ ; TREAT UNIT AS RPO4 
TREAT UNIT AS RPO6 


sp eeeeerrereeereeeeererteretereeetereeerAeeeeeeeeeeeReeeeeeeeA eee 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
815. CYLINDER 815. 
-BYTE 0 SECTOR 0 
-BYTE 0 ; TRACK 0 
-256.-4 WORD COUNT (DATA) = 256. * 
4 HEADER WORDS 
WRF ROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

[BUFFER = WRFROM 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 

;00 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT ; cA COMPARE 


3$: 


4%: 


WRIFOR ;GET READY TO DO A WRIFOR 
;WRITE HEADER AND DATA WITH M62 IN RHCS1 
BR 4% CONTINUE WITH TESTING 
JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
411. CYLINDER 411. 
-BYTE 0 SECTOR 0 
-BYTE 0 ; TRACK 0 
-256.°4 WORD COUNT (DATA) = 256. * 
74 HEADER WORDS 
WRF ROM ;BUS ADDRESS 
STARTING ADDRESS OF DATA 
:BUFFER = WRFROM 
0 ;D0 NOT INNIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 


;D0 NOT INHIBIT ECC CORRECTION 
;00 NOT INHIBIT HEADER COMPARE 


WRIFOR ;GET READY TO DO A WRIFOR 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 
; CONTINUE 


> *NOW SAVE REGISTERS FOR COMPARISON AFTER 
;*WRITE HEADER AND DATA 


JSR RO, Q#SAVER ;SAVE REGISTERS 


Sew RP04/5/6 FCIN 
11 28-MAR- 


CZRJJD.P 


VSWN "OOOO VFWN—OOOnOUFwrn 


SESESSES 
FAR WN=OOm 


5347 


017740 
017742 


017744 


017746 


017752 
017756 


017760 


017766 
017772 


017776 


020002 
020004 
020006 
020010 
020012 


020014 
020022 
020030 
020036 
020044 
020050 


620052 
020054 


002172 
004512 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 
002202 
002000 
000011 
000011 


017737 
017737 
017737 
017737 
094037 
002222 


000002 
000001 


L CT 
79 08: 


RLR2 


LR 
52 


033374 
057465 


004506 


902344 
000101 


162176 


162152 
162146 
162142 
162136 


034204 


MACY11 30A(1052) 
120 


162200 


004512 
004514 
004516 
004520 


59 eX 
25-MAY-79 10:48 PAGE 114 | 
INVALID ADDRESS ERROR = RHER1 = ‘IAE' SEQ 0113 


Ce 


RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE = STARTING ADDRES OF WHERE 
s THE REGISTERS ARE SAVED 
18. = NUMBER OF REGISTERS 
sSAVED = 
JSR PC ,a#CHECKT s CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
TYPE »CPHALT sCANNOT CONTINUE TESTING IF NOT 
HALT sSTOP TEST 


MOV OARP4VEC ,ARPVEC 4+ RPO4 VECTOR ADDRESS 
:10 "TIME 1" If P-CLOCK IS PRESENT 
;OR TO ‘TIME2* IF P-CLOCK IS NOT THERE 
;"TIME* WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 


WAT ;WAIT FOR IAE BIT TO SET 

RHER1 WAIT FOR RHER1 REGISTER 

1AE WAIT FOR IAE BIT IN RHER1 REGISTER 
9. ;ALLOW 90 MICRO SECONDS 

9. ;1AE MUST SET BETWEEN 


;00 AND 180 MICRO SECONDS 


; *CHANGE THE SAVED REGISTERS TO EXPECTED VALUES 


7*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED, 
7 *RHWC,RHBA,RHCS1 & RHCS2 CANNOT BE PREDETERMINED - 
;*THEY WILL VARY DEPENDING ON GATE DELAYS FOR DIFFERENT UNITS 


MOV ORHWC ,AMSAVERE + RHWC 1S UNPREDICTABLE 
AS EXPLAINED ABOVE 
MOV ORHBA, ANSAVERE?2: RHBA 1S UNPREDICTABLE 
;AS EXPLAINED ABOVE 
MOV @RHCS2,a#SAVERE*4:RHCS2 1S UNPREDICTABLE 
AS EXPLAINED ABOVE 
MOV DRHCS1,a#SAVERE*6;RHCS1 1S UNPREDICTABLE 
AS EXPLAINED ABOVE 


JSR RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ;CHANGE RHDS1 REGISTER 

2 ;2 BIT/BITS TO BE a. wes 

1 ;NEW VALUE OF ATA IS 





CZRJIJDO, RPO4/5/6 FCTNL CTRLR2 
28-MAR-79 08:52 


CZRJJID.P11 


020056 
020060 
020062 


020064 
020070 


020072 
020074 
020076 


020100 


020106 


020114 


020120 
020122 
020124 
020126 
020130 


020132 
020134 


020136 


100000 
000001 
040000 


004037 
002202 


000001 
000001 
002000 


053737 


017737 


004037 


004512 
002254 
000022 
020132 
020136 


104054 
000207 


034204 


004644 


162072 


034312 


MACY11 30A(1052) 
120 


004536 


004524 


1$: 


e 
ERR 


JSR 
RHER1 


1 
1 
1AE 


BIS 


MOV 


> *COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH 
s*CONTENTS AFTER ATTEMPTED WRITE WITH AN ‘JAE’ ERROR 


sy eeeeeereererererrerereeereerereeeretreeeeeeReeKeReeeeeeeernee ees 


RTS 


2$: 


ERROR 


9 
25-MAY-79 10:48 * PAGE 115 
INVALID ADDRESS ERROR - RHER1 = "IAE' SEQ 0114 


;CHANGE ATA BIT 
;NEW VALUE OF ERR IS 1 
; CHANGE ERR BIT 


RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 
CHANGE RHER1 REGISTER 


;1 BIT/BITS TO BE CHANGED 
;NEW VALUE OF JAE IS 1 
;CHANGE IAE BIT 


ntsiicnmssmansion™ ~ :SET APPROPIATE ‘ATA’ BITS 
R WORKING DRIVE IN 
AVED RHAS LOCATION 
@RHDST, ansavenes i ;RHDST IS INDETERMINATE 
SO 11 1S NOT CHECKED 


RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 
;GOOD DATA SAVED IN ‘SAVERE’ 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 1$ ON ERROR 
;RETURN TO 2$ ON NO ERROR 


54 ATTEMPTED OPERATION WITH 

PC ; INVALID ADDRESS CAUSED 
; IMPROPER REGISTER CHANGE 
;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 
RECEIVED DATA GIVES REGISTER 
;CONTENTS AFTER ATTEMPTED 
;WRITE HEADER AND DATA 


aon 


CZRJJDO, RPOG/5/6 FCTINL CTRLR2 MACYI1 — 


CZRJJD.P11 


020136 
020140 
020144 


020152 


020156 
020162 
020164 
020166 


020170 


020202 


020204 
020206 


020210 


020212 
020216 
020220 


020222 


020224 
020250 


paced -79 08:52 


000004 
012706 
012737 


004737 


004037 
002370 
000400 
000377 


004037 
000000 
000 
023 


177400 
002370 


000000 
010000 


002342 


004037 
002172 
004512 


000022 


004737 
104401 


001000 
000021 


033314 


033164 


035276 


033462 


033374 
057465 


004504 


9 
25-MAY-79 10:48 * PAGE 116 
INVALID ADDRESS ERROR - RHERI - "IAE' 


,,eeeeerererererererererererererererereKreeeKereeKeKeeKeKeeeeeAAee 


s*TEST 21 INVALID ADDRESS ERROR = RHER1 (BIT #10) 1AE 


Seidel 


“e- 


A mite DATA 1S ATTEMPTED TO CYLINDER 0, TRACK 19, 


SEC 
INVALID ADDRESS ERROR IAE BIT #10 IN RHERI 
SHOULD SET 


RRR AKHKAEETATETE ETAT KAHeeAikkereeeeeeeeese 


T21: 


SCOPE 
MOV #STACK,SP 
MOV #21,a4TSTNM 


JSR PC, ,a#CLDISK 


;RESET STACK 
; SAVE TEST NUMBER 


SET RI-RHCS1, R2-RHCS2 
7R3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 
tFILL WRITE FROM BUFFER WITH DATA 


JSR RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM 


WRFROM STARTING FROM WRF ROM 
256. 3256. WORDS 
377 sFILL WITH 377 


;*WRITE DATA COMMAND WILL BE FILLED 


JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 

-BYTE 0 SECTOR 0 

SYTE 9, sTRACK 19. 

-256. ;WORD COUNT = 256. 

WRF ROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

:BUFFER = WRFROM 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT’ 
FMT22 :16 BITS PER WORD FORMAT 

;D0 NOT INHIBIT ECC CORRECTION 

;DO NOT INHIBIT HEADER COMPARE 
WRIDAT ;GET READY TO DO A WRIDAT 

;WRITE DATA WITH 60 IN RHCS1 


:*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
JSR REGISTERS 


RO, @#SAVER Saaee ISTE 
RHWC RHWC 1S THE FIRST REGISTER SAVED 
SAVERE TSTARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. :NUMBER OF REGISTERS 
;SAVED = 18. 


JSR PC ,a#CHECKT 
TYPE -CPHALT 


;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 


SEQ 0115 


a 


9 
CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 "PAGE. 1 


17 
CZRJJD.P11 28-MAR-79 08:52 121 INVALID ADDRESS ERROR - RHERI (BIT #10) 1AE SEQ 0116 
Per 020234 000000 HALT ;STOP TEST 
5467 020236 013777 004506 161722 MOV @#RP4VEC ,ARPVEC + SET RPO4 VECTOR ADDRESS 
5468 TO 'TIMET’ IF P-CLOCK IS PRESENT 
5469 SOR TO 'TIME2’ IF P-CLOCK IS NOT THERE 
5470 :'TIME' WILL ONLY SAVE 
5471 :CURRENT CYLINDER ADDRESS 
5472 ;AND LOOK AHEAD REGISTERS 
th 
5475 020244 013746 002342 MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 
5476 020250 052716 000101 BIS #GO'IE,(SP) ;GET READY TO SET GO AND 
5477 ENABLE INTERRUPT 
5478 020254 012677 161720 MOV (SP)+,@RHCS1 :GO WITH 
5479 360 IN RHCS1 FOR WRITE DATA 
5480 :WITH INTERRUPT ENABLED 
5481 
5482 
5483 020260 104413 WAT ;WAIT FOR IAE BIT TO SET 
5484 020262 002202 RHER1 ;WAIT FOR RHER1 REGISTER 
5485 020264 002000 LAE WAIT FOR IAE BIT IN RHER1 REGISTER 
5486 020266 000011 9. ;ALLOW 90 MICRO SECONDS 
5487 020270 000011 9. ;1AE MUST SET BETWEEN 
eo ;00 AND 180 MICRO SECONDS 
cae 3 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5492 
5493 
5494 7*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
5495 ;*RHWC,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 
oe s*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 
5498 020272 017737 161674 004512 MOV @RHWC ,AMSAVERE ;RHWC 1S UNPREDICTABLE 
5499 ;AS EXPLAINED ABOVE 
5500 020300 017737 161670 004514 MOV @RHBA, QW SAVERE +2: RHBA 1S UNPREDICTABLE 
5501 AS EXPLAINED ABOVE 
5502 020306 017737 161664 004516 MOV ORHCS2, auc AvERE SS: RHCS2 IS UNPREDICTABLE 
5503 ; AS EXPLAINED ABOVE 
5504 020314 017737 161660 004520 MOV @RHCS1, aN SAVERE*6: RHCS1 IS UNPREDICTABLE 
3206 ;AS EXPLAINED ABOVE 
5507 020322 004037 034204 JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
3308 020326 002222 RHDS1 ;CHANGE RHDS1 REGISTER 
5510 020330 000002 2 ;2 BIT/BITS TO BE CHANGED 
5511 020332 000001 1 :NEW VALUE OF ATA IS 1 
5512 020334 100000 ATA ;CHANGE ATA BIT 
5513 020336 000001 1 _ VALUE OF ERR IS 1 
5514 020340 040000 ERR HANGE ERR BIT 
ath 020342 017737 161636 004524 MOV @RHDST, ausavere+id ;RHDST 1S INDETERMINATE SO IT IS NOT CHECKED 
16 
5517 
5518 020350 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
4h 020354 002202 RHER| ;CHANGE RHER] REGISTER 


Ce eS 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 
28-MAR-79 T21 


CZRJJD.P11 


020356 
020360 
020362 


020364 


020372 


020376 


020406 


020419 
020412 


020414 


000001 
000001 
002000 


053737 


004037 


004512 


020414 


104054 
000207 


08:52 


004644 004536 


034312 


23: 


nN 9 
25-MAY-79 10:48 PAGE 1 


18 
INVALID ADDRESS ERROR = RHER1 (BIT #10) 1AE SEQ 0117 
1 ;1 BIT/BITS TO BE a se 
1 ;NEW VALUE OF IAE IS 1 
1AE ;CHANGE IAE BIT 


BIS Q#ATTENT,@#SAVERE+24 ;SET APPROPIATE ‘ATA* BITS 
;FOR WORKING DRIVE IN 
;SAVED RHAS LOCATION 


;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE DATA 
s;tW1TH AFTER ATTEMPT, IAE SHOULD BE SET 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 


SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

wC TEST DATA STARTING FROM ‘RHWC' 
18. 318. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 

2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 54 ATTEMPTED WRITE DATA 

RTS PC ;WITH INVALID ADDRESS 


Staanae IMPROPER REGISTER 

; CHAN 

;GOOD DATA GIVES WHAT 

: SHOULD BE THERE 

;RECEIVED DATA GIVES WHAT 

;WAS THERE AFTER AFTER ATTEMPT 


on 








JJD.P 


































MAAR UTI 
PAAR AN 
oo ~N 

N 


020414 
020416 
020422 


020430 


020434 


020440 
020444 


020446 


020454 
020460 


020462 - 


020466 
020472 


020476 


020506 


000004 
012706 
012737 


004737 


004737 


104401 
000000 


013777 


004037 
000010 


013746 
052716 


012677 


104413 


015530 


001000 
000022 


033314 


033374 
057465 


004506 


033264 


002352 
000101 


161502 


004504 


161512 


CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 = 
CZR Pil 28-MAR-79 08:52 T21 


ppeeteeeereererereeererrrreeeeeteeeeeeereRKeKkeekeenreKeeeeeereeee 
s*TEST 22 


A READ HEADER AND DATA IS ATTEMPTED TO CYLINDER 0 
TRACK 0, 


TST22: 





25-MAY-79 119 
INVALID ADDRESS ERROR - RHER1 (BIT #10) 1AE 


B 10 
10:48 PAGE 


INVALID ADDRESS ERROR RHER1 -BIT #10 


SECTO 


R 22 
INVALID ADDRESS ERROR IAE BIT #10 IN RHERI 
SHOULD SET 
THIS WILL START WITH THE HEADS ON CYLINDER 10 
+ aay THAT IAE SETS EVEN BEFCRE THE IMPLIED 


SCOPE 
MOV 
MOV 


JSR 


Sicha Greece. | Serie er ct eet nae 


#STACK,SP ;RESET STACK 
#22,a#TSTNM ;SAVE TEST NUMBER 


PC, ,a#CLDISK SET R1-RHCS1, R2-RHCS2 

: ;R3-RHDS1, R4-RHER1 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


;*GET THE HEADS TO CYLINDER 10 


JSR 


TYPE 
HALT 


MOV 


PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
,CPHALT ;CANNOT CONTINUE TESTING IF NOT 


;STOP TEST 


O#RP4VEC ,ARPVEC iSET RPO4 VECTOR ADDRESS 
TO 'TIME1" IF P-CLOCK IS PRESENT 








TOR TO 'TIME2' IF P=CLOCK IS”NOT THERE ° 


;'TIME’ WILL ONLY SAVE 


‘ ;CURRENT CYLINDER ADDRESS 


;AND LOOK AHEAD REGISTERS 


RO, a#SEEKCY ; SEEK FOR 
;CYLINDER 10 


O@#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 
#GO!1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
(SP)+,@RHCS1 360 W WITH 
4 IN RHCS1 FOR SEEK 
;WITH INTERRUPT ENABLED 


;WAIT FOR DRY BIT TO SET 
WALT FOR RHDS1 REGISTER 

;WAIT FOR DRY BIT IN RHDS1 REGISTER 
;ALLOW 70000 gtr SECONDS 
:DRY MUST SET BETWEEN 

:00 AND 140000 MICRO SECONDS 


CZRJ 


5615 020514 


5618 020524 


5623 020526 
32 


5627 020536 
5629 020540 


5632 020542 
5633 020544 


5636 020546 


5641 020550 
5642 020554 
5643 020556 


5645 020560 


5648 020562 


5650 020566 
5651 020572 


5653 020574 


5660 020602 
5661 020606 


CZR yr anak FCTNL 
28 79 


-MAR-79 


Bree te 


125252 


004037 
000000 
026 


000 
177374 


003434 


000000 
014000 


002350 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


CTRLR2 
08:52 


7 
aos 020510 004737 033314 


033164 


035276 


033462 


033374 
057465 


004506 


002 
000 


—w 
ou 


—-O 


MACY11 30A(1052) 
T22 


161364 


C 10 
25-MAY-79 10:48 PAGE 120 
INVALID ADDRESS ERROR RHER1 -BIT #10 


JSR PC ,a#CLDISK ;SET R1I-RHCS1, R2-RHCS2 
7R3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


;*FILL READ INTO BUFFER WITH 125252 


JSR RO, @#CLAREA ;CLEAR 260 WORDS, FROM REINTO 
REINTO :STARTING FROM REINTO 

260 :260 WORDS 

125252 sFILL WITH 125252 

;*THE READ HEADER AND DATA COMMAND IS FILLED ‘ . 


;SETUP TO RUN FOR DATA COMMAND 


JSR RO, a#RUN 
0 CYLINDER 0 


-BYTE 22. ;SECTOR 22. 

-BYTE 0 s TRACK 0 

-256.-4 ;WORD COUNT (DATA) = 256. + 
4 HEADER WORDS 

REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22!ECI :16 BITS PER WORD FORMAT: 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
REFOR ;GET READY TO DO A REFOR 

;READ HEADER AND DATA WITH 72 IN RHCS1 


oo wt ph ee FOR COMPARISON Sie READ 


RO, a#SAVER SAVE REGISTERS 
RHUC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE :STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,@#CHECKT ; CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 


;AND THAT ALL STATUS BITS ARE = 0 
TYPE »CPHALT CANNOT CONTINUE TESTING IF NOT 
HALT ;STOP TEST 


MOV Q#RP4VEC ,ARPVEC + +4 RPO4 VECTOR ADDRESS 
TO 'TIME1’ IF P=CLOCK 1S PRESENT 
TOR TO 'TIME2' IF P-CLOCK IS NOT THERE 
;'TIME* WILL ONLY SAVE 
SCURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@#REFOR,-(SP)  ;GET READY TO MOVE COMMAND 
BIS #GO!IE, (SP) ;GET READY TO SET GO AND 


SEQ 0119 


D 10 
2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 121 


CZRJJD0,  RPOs/3/6 FCTNL CTRLR 2 

CZRJJD.P1 28-MAR-79 08:52 122 INVALID ADDRESS ERROR RHER1 -BIT #10 P SEQ 0120 
5662 ENABLE INTERRUPT 
5663 020612 012677 161362 MOV (SP)+,@RHCS1 :60 WITH 
5664 :72 IN RHCS1 FOR READ DATA 
5665 sWITH INTERRUPT ENABLED 
5666 
5667 
5668 020616 104413 WAT WAIT FOR IAE BIT TO SET 
5669 020620 002202 RHER1 ‘WAIT FOR RHER1 REGISTER 
5670 020622 002000 1AE ‘WAIT FOR IAE BIT IN RHER1 REGISTER 
5671 020624 000002 2. sALLOW 20 MICRO SECONDS 
5672 020626 000002 Ze :1AE MUST SET BETWEEN 
gore :00 AND 40 MICRO SECONDS 
4h :*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5677 
5678 
5679 :*AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 
5680 ;*RHWC,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 
9-44 :*THEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 
5683 020630 017737 161336 004512 MOV aRHWC , A#SAVERE :RHWC 1S UNPREDICTABLE 
5684 sAS EXPLAINED ABOVE 
5685 020636 017737 161332 004514 MOV @RHBA,AMSAVERE+2~ ;RHBA IS UNPREDICTABLE 
5686 sAS EXPLAINED ABOVE 
5687 020644 017737 161326 004516 MOV A@RHCS2,a#SAVERE+4 s;RHCS2 1S UNPREDICTABLE 
5688 :AS EXPLAINED ABOVE 
5689 020652 017737 161322 004520 MOV @RHCS1,a#SAVERE+6 :RHCS1 1S UNPREDICTABLE 
gene :AS EXPLAINED ABOVE 
5692 020660 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
per? 020664 002222 RHDS1 s CHANGE RHDS1 REGISTER 
5695 020666 000002 2 2 BIT/BITS TO BE CHANGED 
5696 020670 000001 1 sNEW VALUE OF ATA IS 1 
5697 020672 100000 ATA sCHANGE ATA BIT 
5698 020674 000001 1 mee VALUE OF ERR IS 1 
5699 020676 040000 ERR CHANGE ERR BIT 
te 020700 017737 161300 004524 MOV @RHDST, aNSAVERE+12 :RHDST IS INDETERMINATE SO IT IS NOT CHECKED 
5702 
5703 020706 004037 034204 JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
gree 020712 002202 RHER1 CHANGE RHER1 REGISTER 
5706 020714 000001 1 :1 BIT/BITS TO BE CHANGED 
5707 020716 000001 1 NEW VALUE OF IAE IS 1 
708 020720 002000 LAE ;CHANGE IAE BIT 
5710 020722 053737 004644 004536 BIS Q#ATTENT, @MSAVERE+24 ;SET APPROPIATE ‘ATA’ BITS 
§711 :FOR WORKING DRIVE IN 
are :SAVED RHAS LOCATION 
571 
5714 :*COMPARE REGISTERS BEFORE ATTEMPTED READ HEADER 
5715 >*AND DATA WITH AFTER ATTEMPTED READ 
5716 
$717 020730 004037 034312 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 





E 10 
CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 5 eta 25-MAY-79 10:48 PAGE 122 


CZRJJD.P11 28-MAR-79 08:52 INVALID ADDRESS ERROR RHER1 -BIT #10 SEQ 0121 
5718 ;PRESENT VALUE 
5719 020734 004512 SAVERE ;GOOD DATA SAVED IN ‘SAVERE’ 
5720 020736 002254 wC TEST DATA STARTING FROM ‘RHWC' 
5721 020740 000022 18. ;18. REGISTERS TO BE COMPARED 
5722 020742 020746 1$ ;RETURN TO 1$ ON ERROR 
aise 020744 020752 2$ ;RETURN TO 2$ ON NO ERROR 
5725 
5726 020746 104054 1$: ERROR 54 ;ATTEMPTED READ HEADER 
5727 020750 000207 RTS PC ;AND DATA WITH INVALID 
5728 ;ADDRESS CAUSED IMPROPER 
5729 REGISTER CHANGE 
5730 ;GOOD DATA GIVES WHAT 
5731 ;SHOULD BE THERE 
5732 RECEIVED DATA GIVES 
5733 ;REGISTER CONTENTS 
5734 ;AFTER ATTEMPTED 
5735 ;READ 
5736 020752 2$: 
5737 


8 aE 


CZRJJDO, RPO4/5/6 At CTRLR2 MACY11 + Sa 


CZRJID.P11 


59 
5761 


020752 
020754 
020760 


020766 


020772 
020776 
021000 
021002 


021004 


021016 


021020 
021022 


021024 


021026 
021032 
021034 


021036 


021040 
021044 


28-MAR-79 


000004 
012706 
012737 


004737 


seeg 


125252 


004037 


000000 


177400 
003434 


000000 
004000 


002346 


004037 
002172 
004512 


000022 


004737 
104401 


08:52 


001000 
000023 


033314 


033164 


035276 


033462 


033374 
057465 


004504 


F 10 
25-MAY-79 10:48 PAGE 125 
INVALID ADDRESS ERROR RHER1 -BIT #10 


Sp eeeeeeeereeeeeeeeeeeeeeeeeeteeeeerreeeeteKeKeeeeKkeeeKeKeAAe es 


INVALID ADDRESS ERROR = RHER1 (BIT MI0)IAE 


A READ DATA IS ATTEMPTED TO or tome 0, TRACK 0 
INVALID ADDRESS ERROR iAE BIT non IN RHER1 


; 'MOARBBBSASAAALZALSZASLALALLASESE SALAS SARA R ARR ARRAS RRA RRR RARER RASS SASS | 


MOV 4#23,0#TSTNM 
JSR PC ,a#CLDISK 


;*FILL READ INTO BUFFER 


JSR RO,@#CLAREA 
REINTO 


260 
125252 


s*TEST 23 
,;2 
ft SECTOR 20 - FORMAT 18 BITS PER W 
** 
;* SHOULD SET 
18123: SCOPE 
MOV #STACK,SP 


;RESET STACK 
;SAVE TEST NUMBER 


;SET R1I-RHCS1, R2-RHCS2 
7R35-RHDS1, R4-RHERI 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


WITH 125252 


;CLEAR 260 WORDS, FROM REINTO 
; STARTING FROM REINTO 

;260 WORDS 

sFILL WITH 125252 


>*THE READ HEADER AND DATA COMMAND IS FILLED 


JSR RO,a#RUN 


REINTO 


0 
ECI 


READAT 


;SETUP TO RUN FOR DATA COMMAND 
sCYLINDER 0 

:SECTOR 20. 

s TRACK 0 

sWORD COUNT = 256. 

;BUS ADDRESS 


STARTING ADDRESS OF DATA 
;BUFFER = REINTO 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 


:18 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 


;DO NOT INHIBIT HEADER COMPARE 
T READY TO DO A READAT 


;GE 
;READ DATA WITH 70 IN RHCS1 


: *SAVE REGISTERS — COMPARISON AFTER ATTEMPTED READ 


JSR * RO,O#SAVE 
RHWC 4 
SAVERE 


18. 


JSR PC ,a#CHECKT: 


TYPE ,CPHALT 


sSAVE REGISTERS 

sRHWC IS THE FIRST REGISTER SAVED 
sSTARTING ADDRES OF WHERE 

sTHE REGISTERS ARE SAVED 

sNUMBER OF REGISTERS 

sSAVED = 18. 


CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 
;AND THAT ALL STATUS BITS ARE = 0 
CANNOT CONTINUE TESTING IF NOT 


1 


SEQ 0122 


5849 SAVED RHAS LOCATION 
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{ban 021050 000000 HALT :STOP TEST 
5796 021052 013777 004506 161106 MOV OARP4VEC ,ARPVEC iSET RPO4 VECTOR ADDRESS 
5797 TO 'TIME1" IF P=CLOCK IS PRESEN 
5798 “OR TO 'TIME2" IF P=CLOCK IS NOT " WERE 
5799 >" TIME’ WILL ONLY SAVE 
5800 :CURRENT CYLINDER ADDRESS 
5801 AND LOOK AHEAD REGISTERS 
305 
5804 021060 013746 002346 MOV Q#READAT,-(SP) ;GET READY TO MOVE COMMAND 
5805 021064 052716 000101 BIS #GO'1E, (SP) :GET READY TO SET GO AND 
5806 sENABLE INTERRUPT 
5807 021070 012677 161104 MOV (SP)+,@RHCS1 360 WITH 
5808 :70 IN RHCS1 FOR READ DATA 
5809 WITH INTERRUPT ENABLED 
5810 
5811 
5812 021074 104413 WAT sWAIT FOR IAE BIT TO SET 
5813 021076 002202 RHER1 sWAIT FOR RHER1 REGISTER 
5814 021100 002000 LAE WAIT FOR IAE BIT IN RHER1 REGISTER 
5815 021102 000002 ce sALLOW 20 MICRO SECONDS 
5816 021104 000002 a ;1AE MUST SET BETWEEN 
Hf 700 AND 40: MICRO SECONDS 
2819 :*CHANGE SAVED REGISTERS TO EXPECTED VALUES 
5821 021106 004037 034204 JSR RO, a#CHREG : CHANGE BITS IN SAVED REGISTER 
cast 021112 002200 RHCS1 : CHANGE RHCS1 REGISTER 
5824 021114 000002 2 :2 BIT/BITS TO BE CHANGED 
5825 021116 000001 1 sNEW VALUE OF SC IS 1 
5826 021120 100000 sc ;CHANGE SC BIT 
5827 021122 000001 1 wey VALUE OF TRE IS 1 
5828 021124 040000 TRE HANGE TRE BIT 
4494 021126 017737 161052 004524 MOV @RHDST, oesavene+ise RHDST 1S UNPREDICTABLE 
5831 021134 004037 034204 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
ty 021140 002222 RHDS1 CHANGE RHDS1 REGISTER 
5834 021142 000002 2 :2 BIT/BITS TO BE CHANGED 
5835 021144 000001 1 ;NEW VALUE OF ATA IS 1 
5836 021146 100000 ATA CHANGE ATA BIT 
5837 021150 000001 1 sNEW VALUE OF ERR IS 1 
sate 021152 040000 ERR > CHANGE ERR BIT 
5840 021154 004037 034204 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
+78} 021160 002202 RHER1 s CHANGE RHER1 REGISTER 

4 
5843 021162 000001 1 :1 BIT/BITS TO BE CHANGED 
$844 021164 000001 1 sNEW VALUE OF IAE IS 1 
+H 021166 002000 LAE CHANGE IAE BIT 

46 
5847 021170 053737 004644 004536 BIS Q#ATTENT, Q@#SAVERE+24 ;SET APPROPIATE ‘ATA* BITS 
5848 :FOR WORKING DRIVE IN 
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5850 
5851 ;*COMPARE REGISTERS BEFORE ATTEMPTED READ 
24 :*DATA WITH AFTER ATTEMPTED READ DATA 
5854 021176 004037 034312 JSR RO, a#COMREG COMPARE SAVED REGISTERS WITH 
5855 :PRESENT VALUE 
5856 021202 004512 SAVERE :GOOD DATA SAVED IN ‘SAVERE' 
5857 021204 002254 we :TEST DATA STARTING FROM ‘'RHWC' 
5858 021206 000022 18. :18. REGISTERS TO BE COMPARED 
5859 021210 021214 1$ RETURN TO 1$ ON ERROR 
gee 021212 021220 2$ :RETURN TO 2$ ON NO ERROR 
5862 
5863 021214 104054 1$: ERROR 54 ATTEMPTED READ 
5864 021216 000207 RTS PC :DATA WITH INVALID 
5865 ADDRESS CAUSED IMPROPER 
5866 sREGISTER CHANGE 
5867 :GOOD DATA GIVES WHAT 
5868 ;SHOULD BE THERE 
5869 RECEIVED DATA GIVES 
5870 sREGISTERS CONTENTS 
5871 AFTER ATTEMPTED 
5872 :READ 
5873 021220 2$: 
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021220 
021222 
021226 


021234 


021240 


021256 


021260 


021270 
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000004 
012706 
012737 


004737 


004037 


000000 


004037 


000000 


001000 
000024 


033314 


033140 


033164 


004504 
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Sp eeeeererrrrrreereeeereeeereeeereAreeeeeereereerKeteeKeeTeeree es 


s*TEST 24 ADDRESS OVERFLOW ERROR = RHER1 (BIT#S) AOE 


Be Se Be Be Be Be Be Be Be He Be He He 


Be Be ee Be Be we 
eaneenerneneneeeneeeee ee eee 
« 


A WRITE HEADER AND DATA COMMAND IS GIVEN FOR CYLINDER 0,TRACK 0 
SECTOR 0, 256 WORDS OF 0 
NO CHECK IS DONE AFTER THIS WRITE 


A WRITE HEADER AND DATA COMMAND IS GIVEN FOR 
CYLINDER 410./814., TRACK 18, SECTOR 21, 261 WORDS 


ADDRESS OVERFLOW ERROR - RHER1 BIT#9 (AOE) SHOULD SET 
AFTER SECTOR 21 1S WRITTEN 
ALL REGISTERS ARE CHECKED 


A READ HEADER AND DATA CYLINDER 410./814., TRACK 18, SECTOR 21, 
260+66+4=330 WORDS 1S ISSUED 


SECTOR 21 SHOULD BE READ CORRECTLY BUT NO MORE 
READS SHOULD HAPPEN, AGAIN THE ‘AOE’ BIT SHOULD SET 


CYLINDER 0, TRACK 0, SECTOR 0 IS READ AND THERE 
SHOULD BE NO CHANGE IN DATA IN THIS SECTOR FROM 
THE LAST WRITE HEADER AND DATA COMMAND 


MOEBBBBBBAABASAAALALASLASAASAASASARASAR SARE RR RAR RRRRRR RRR RRR RRR DRD SS 


18124: 


SCOPE 

MOV #STACK,SP RESET STACK 

MOV #24 ,Q#TSTNM ; SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHERI 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


S*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO,@#FLHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

4 ;NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 

0 ;SECOND DATA WORD 


;FOURTH DATA WORD 
7*FILL WRITE FROM BUFFER WITH DATA 


JSR RO,a#CLAREA sCLEAR 256. WORDS, FROM WRFROM+<4*2> 
WRFROM+<4#2> sSTARTING FROM WREROM+<4*#2> 
256. 3256. WORDS 

sFILL WITH O 


:*THE FIRST WRITE OPERATION IS DONE 
S*FILL WRITE HEADER AND DATA COMMAND 


: THIRD DATA WORD 
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CZRJJD.P11 28-MAR-79 08:52 ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 
5931 ppeeeeeeereeteeeeteeeererereteeretrreeteeeeeeKTeeeereeeeeee eee 
5932 
5933 021272 004037 035276 JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
5934 021276 000000 s CYLINDER 0 
5935 021300 000 BYTE 0 SECTOR 0 
5936 021301 000 -BYTE 0 TRACK 0 
5937 021302 177374 -256.-4 ;WORD COUNT (DATA) = 256. + 
5938 34 HEADER WORDS 
5939 021304 002370 WRF ROM ;BUS ADDRESS 
5940 ;STARTING ADDRESS OF DATA 
5941 ;BUFFER = WRFROM 
5942 021306 000000 0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
5943 021310 010000 FMT22 316 BITS PER WORD FORMAT 
5944 ;D0 NOT INHIBIT ECC CORRECTION 
5945 ;D0 NOT INHIBIT "> COMPARE 
5946 021312 002344 WRIFOR ;GET READY TO DO A WRIFOR 
5947 sWRITE HEADER AND DATA WITH 62 IN RHCS1 
3 
5950 021314 004737 033374 JSR PC, ,@#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND Vv = 1 
5951 ;AND THAT ALL STATUS BITS ARE = 0 
5952 021320 104401 057465 TYPE ~CPHALT ;CANNOT CONTINUE TESTING IF NOT 
Ht, 021324 000000 HALT ;STOP TEST 
5955 021326 013777 004506 160632 MOV O#RP4VEC,ARPVEC +4 RPO4 VECTOR ADDRESS 
5956 ;TO "TIME1' IF P=CLOCK IS PRESENT 
5957 ‘OR TO 'TIME2’ IF P-CLOCK IS NOT THERE 
5958 "TIME" WILL ONLY SAVE 
5959 ;CURRENT CYLINDER ADDRESS 
5960 ;AND LOOK AHEAD REGISTERS 
5962 
5963 021334 013746 002344 MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
5964 021340 052716 000101 BIS #GO!I1E, (SP) ;GET READY TO SET GO AND 
5965 ;ENABLE INTERRUPT 
5966 021344 012677 160630 MOV (SP)+,@RHCS1 :GO0 WITH 
5967 762 IN RHCS1 FOR WRITE HEADER AND DATA 
5968 sWITH INTERRUPT ENABLED 
5969 
5970 
5971 021350 104413 WAT ;WAIT FOR RDY BIT TO SET 
5972 021352 002200 RHCS1 sWAIT FOR RHCS1 REGISTER 
5973 021354 000200 RDY ;WAIT FOR RDY BiT IN RHCS1 REGISTER 
5974 021356 004704 2500. ;ALLOW 25000 MICRO SECONDS 
5975 021360 004704 2500. ;RDY MUST SET BETWEEN 
4441 :00 AND 50000 MICRO SECONDS 
5978 021362 004737 0333514 JSR PC, ,a#CLDISK 7SET R1-RHCS1, R2-RHCS2 
5979 7R3-RHDS1, R4-RHER1 
5980 3GIVE RH-11 INITIALIZE 
5981 > SETUP UNIT NUMBER 
5982 
5983 
5984 s*CHECK THE DRIVE TYPE AND DO THE 
5985 s*APPROPRIATE SECOND WRITE OPERATION 


SEQ 0126 
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5987 s*FILL WRITE FROM BUFFER WITH HEADER 
5988 ppeeeeeeeeeeeeeeeeeeererereeteereerrtrreeeeeeAeeeeeKeAeTeT TTT ee 
5989 
990 . 
5991 ppeteeeeeeeeeeeeereteeeteereeerreereKeeeeKeeeeT ETAT TTT 
5992 021366 005737 004636 TST aARPO6 =; TEST FOR RPO6 DRIVE 
5993 021372 001411 BEQ 15% ; TREAT DRIVE AS AN RPOS 
5994 ; TREAT AS AN RPO6 
5995 Pl eeeeeeereeeetteeeeeetereeeettrrereeeeeeeetedeeee eee eee eT ee 
5 
5997 
5998 021374 004037 033140 JSR RO, a#FLHEAD ;SAVE HEADER DATA IN WRFROM 
5999 021400 002370 WRF ROM ;LOCATION WHERE SAVED 
6000 021402 000004 4 sNUMBER OF WORDS SAVED 
6001 021404 011456 11456 sFIRST DATA WORD 
6002 021406 011025 <18.*400>!<21.> ;SECOND DATA WORD 
6003 021410 000000 0 ; THIRD DATA WORD 
6004 021412 000000 0 ;FOURTH DATA WORD 
oes 021414 000410 BR 16% ;CONTINUE WITH THE SECOND WRITE 
6007 
eo 021416 15$: 
6010 021416 004037 033140 JSR RO,a#FLHEAD ;SAVE HEADER DATA IN WRFROM 
6011 021422 002370 WRF ROM ;LOCATION WHERE SAVED 
6012 021424 000004 4 sNUMBER OF WORDS SAVED 
6013 021426 010632 10632 sFIRST DATA WORD 
6014 021430 011025 <18.*400>!<21.> ;SECOND DATA WORD 
6015 021432 000000 0 ; THIRD DATA WORD 
6016 021434 000000 0 ;FOURTH DATA WORD 
9 Ah 021436 16$: ;CONTINUE WRITE 
6 
1484 s*FILL WRITE FROM BUFFER WITH DATA = 65125 
6 
6021 021436 004037 033164 JSR RO,@#CLAREA sCLEAR 256. WORDS, FROM WRFROM+<4*2> 
6022 021442 002400 WRFROM+<4*2> 1 A genet FROM WRFROM+<4*2> 
6023 021444 000400 256. 5438. WORDS 
ose 021446 065125 <26.*2000>!<18.*40>!<21. sFILL WITH <26.*2000>!<18.*40>!< 
6 
6026 
6027 : 
6028 >*CHECK THE DRIVE TYPE AND 
oS s*FILL WRITE FROM BUFFER WITH APPROPRIATE NEXT HEADER 
6 
6031 >*THIS 1S A NON EXISTANT HEADER AND SHOULD NOT BE WRITTEN 
6032 :*SINCE ‘AOE’ SHOULD INHIBIT THE WRITE OPERATION 
6033 
6034 
6035 PRCA RATATAT ACETATE TTT Tee Tere eee eee eee 
6036 021450 005737 004636 TST a#RPO6 ;TEST FOR RPO6 DRIVE 
6037 021454 001411 BEQ 17% TREAT UNIT AS AN RPO4 
6038 “TREAT AS AN RPO06 
6039 PAA eee Te Tee eee ee etre eee A eee Tete Tere Aree TERETE 
6040 = 
6041 


6042 021456 004037 035140 JSR RO, @#FLHEAD 7SAVE HEADER DATA IN WRFROM+<260.*2> 
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021462 


021476 


021500 
021500 


021520 


021520 


021530 


021532 
021536 


021540 


021550 


021552 


021554 
021556 


021560 


021562 
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003400 


000410 


004037 
003400 


000000 


004037 
003410 
000002 
066000 


005737 
001412 


004037 
001456 
025 
022 
177373 
002370 


000000 
010000 


002344 


000411 


033140 


033164 


004636 


035276 


ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 


-eibspecttineninn sat 
11457 

0 

BR 18$ 


17$: 


JSR RO,a#FLHEAD 
Ui Rome <266, *2> 


10633 

0 

0 

0 
18$: 

JSR RO, a#CLAREA 

‘ete 

<27.*2000> 


;LOCATION WHERE SAVED 


;NUMBER OF WORDS SAVED 
sFIRST DATA WORD 
SECOND DATA WORD 

; THIRD DATA WORD 
FOURTH DATA WORD 
;CONTINUE WITH TEST 


;SAVE HEADER DATA IN WRFROM+<260.*2> 


;LOCATION WHERE SAVED 


;NUMBER OF WORDS SAVED 
;FIRST DATA WORD 
; SECOND DATA WORD 
; THIRD DATA WORD 
;FOURTH DATA WORD 


; CONTINUE 
s*FILL WRITE FROM BUFFER WITH DATA FOR NEXT SECTOR 
sCLEAR 2 WORDS, FROM WRFROM+<264.*2> 
32 WORDS 


sSTARTING FROM WRFROM+<264.*2> 
sFILL WITH <27.*2000> 


;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
s*FILL WRITE HEADER AND DATA COMMAND 


PEAR A EAA A EATER AA AEA EAA AAR ATT 


TST a#RPO6 ;TEST FOR RPO6 DRIVE 


BEQ 7$ 


JSR RO, a#RUN 


WRF ROM 


0 
FMT22 
WRIFOR 


BR 8$ 


; TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 


TOPPA SESSASESAEESAEASESEA SESE SERRE SA SEA SE RRR R RRR R RASA RE RRR RRR AREA D BS 


;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 814, 

;SECTOR 21. 

;TRACK 18. 

s;WORD COUNT (DATA) = 257. + 

74 HEADER WORDS 

;BUS ADDRESS 

STARTING ADDRESS OF DATA 


;BUFFER = WRFROM 
;D0 NOT INHIBIT BUS oe INCREMENT 
;16 BITS PER WORD FORMA 
:D0 NOT INHIBIT ECC CORRECTION 
;D0 NOT INHIBIT rr COMPARE 
READY TO DO A W 


;GET 1FOR 
;WRITE HEADER AND DATA WITH “2 IN RHCS1 


SEQ 0128 


———— 
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021564 
021564 


021574 
021576 


021600 
021602 


021604 


021606 


021606 
021612 
021614 


021616 


021620 


021624 
021630 


021632 


021640 
021644 


021650 


021654 
021656 
021660 
021662 
021664 
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004037 035276 
000632 


022 
177373 
002370 


000000 
010000 


002344 


004037 
002172 
004512 


900022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 


004704 


033462 


033374 
057465 


004506 


002344 
000101 


160324 


160326 


7$: 


8$: 
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JSR RO,a#RUN 
410 


WRF ROM 


0 
FMT22 


WRIFOR 


;SETUP TO RUN FOR DATA COMMAND 
eertiee’s 410. 


CTOR 21. 
‘TRACK 18. 
[WORD COUNT (DATA) = 257. 4 
34 HEADER WORDS 
:BUS ADDRESS 
; STARTING ADDRESS OF DATA 
;BUFFER = WRFROM 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 


:16 BITS PER WORD FORMAT 
;00 NOT INHIBIT ECC CORRECTION 


;D0 NOT INHIBIT HEADER COMPARE 
T READY TO DO A WRIFOR 


;GE 
;WRITE HEADER AND DATA WITH 62 IN RHCS1 


eae REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA 
J 


RO, a#SAVER 
RHWC 
SAVERE 


18. 


JSR PC ,a#CHECKT 


TYPE ,CPHALT 
HALT 


MOV OARP4VEC ,ARPVEC 


MOV O#WRIFOR,-(SP) 
BIS #GO!IE,(SP) 


MOV (SP)+,@RHCS1 


;SAVE REGISTERS 

sRHWC 1S THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 

;THE REGISTERS ARE SAVED 

;NUMBER OF REGISTERS 

;SAVED = 18. 


;CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 

;STOP TEST 


i SET RPO4 VECTOR ADDRESS 
TO 'TIME1" JF P-CLOCK IS PRESENT 
TOR TO 'TIME2* IF P-CLOCK IS NOT THERE 


:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 

:GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 


;WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 

WALT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 25000 MICRO SECONDS 

;RDY MUST SET BETWEEN 

700 AND 50000 MICRO SECONDS 


SEQ 0129 
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021666 
021672 
021674 


021676 
021702 
021704 


021706 
021712 
021714 


021724 


021726 
021732 


021734 
021736 
021740 
021742 
021744 


021746 


021752 
021754 


021756 
021762 


021764 


022000 
022002 


022010 
022014 
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004037 
002174 
003402 


004037 
002172 
000000 


004037 
002200 
000002 


040000 


004037 
002176 


000002 
000001 
000200 
000001 
000100 


004037 


002202 
001000 


004037 
002222 


000003 


002000 
053737 


005737 
001411 


033216 


033216 


034204 


034204 


033216 


034204 


004644 


004636 


CTRLR2 MACY11 30A(1052) 
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>*CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,a#F ILLRE sMOV WREROM+<260.*2>4<1.#2> INTO SAVED RHBA 
RHBA ;SAVED REGISTER TO CHANGE 
WRF ROM+<260. #2>+4<1.*2> DATA 
JSR RO,a#F ILLRE sMOvV 0 INTO SAVED RHWC 
we beet REGISTER TO CHANGE 
JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS1 : CHANGE RHCS1 REGISTER 
2 :2 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF SC IS 1 
sc ; CHANGE SC BIT 
1 sNEW VALUE OF TRE IS 1 
TRE sCHANGE TRE BIT 
JSR RO,a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS2 : CHANGE RHCS2 REGISTER 
2 :2 BIT/BITS TO BE CHANGED 
1 ;NEW VALUE OF OR IS 1 
OR ; CHANGE OR BIT 
1 sNEW VALUE OF IR IS 1 
IR ;CHANGE IR BIT 
SR RO, aMFILLRE :MOV AOE INTO SAVED RHER1I 
RHER1 ;SAVED REGISTER TO CHANGE 
AOE ;DAT 
JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS1 s CHANGE RHDS1 REGISTER 
3 33 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF ATA IS 1 
ATA s CHANGE ATA BIT 
1 sNEW VALUE OF ERR IS 1 
ERR : CHANGE ERR BIT 
1 sNEW VALUE OF LBT IS 1 
LBT ;CHANGE LBT BIT 
BIS Q#ATTENT,@#SAVERE*+24 ;SET APPROPIATE ‘ATA’ BITS 


FOR WORKING DRIVE IN 
SAVED RHAS LOCATION 


:*CHECK DEVICE TYPE BEFORE SETTING UP ‘RHCA’ & “RHCC* 


spteerreceerererererrererertrrerenerereeRteeeeneeeeeeeeeeneseeees 


TST 
BEQ 


a#RPO6 ; TEST FOR RPO6 DRIVE 
9$ ; TREAT AS RPOS 
; TREAT AS RPO6 


SEQ 0150 





















022016 
022022 
022024 


022026 
022032 
022034 


022036 
022040 


022040 
022044 
022046 


022050 
022054 
022056 


022060 


022060 


022066 


022072 
022074 
022076 
022100 
022102 


022104 
622106 
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001456 
000410 


004037 
002212 
000633 


004037 
002234 
000632 


017737 


004037 


004512 
002254 
000022 
022104 
022110 


104055 
000207 


033216 


033216 


033216 


033216 


160120 


034312 


004524 
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;pereeeerrerereeererereeererereeeeTeeeteeeeeeeAeReeneeeHeAeeTA ee 


9$: 


108: 
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ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 


JSR 
RHCA 
815. 


JSR 
RHCC 
814. 


BR 
JSR 


RHCA 
411. 


JSR 
RHCC 


‘410. 


MOV 


JSR 


SAVERE 


ERROR 


RTS 


RO, a#F ILLRE 


RO,a#F ILLRE 


10% 


RO,a#F ILLRE 


RO,a#F ILLRE 


@RHDST,A#SAVERE+12 ;RHDST 1S UNPREDICTABLE 
> *GOMPARE REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER 


RO,a#COMREG ;COMPARE SAVED REGISTERS WITH 


55 
PC 


;MOv 815. 
Fy REGISTER TO CHANGE 


;MOv 814. 
4 try REGISTER TO CHANGE 


INTO SAVED RHCA 


INTO SAVED RHCC 


;CONTINUE WITH TEST 


sMOV 41i. 
dretiy REGISTER TO CHANGE 


:MOv 410. 
dey REGISTER TO CHANGE 


iNTO SAVED RHCA 


INTO SAVED RHCC 


CONTINUE WITH TEST. 


PRESENT VALUE 


;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 


;RETURN TO 1$ ON ERROR 


;RETURN TO 2$ ON NO ERROR 


;WRITING HEADER AND DATA WITH 
EXPECTED ADDRESS OVERFLOW ERROR 
;CAUSED IMPROPER REGISTER 


; CHANGE 


GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


RECEIVED DATA GIVES WHAT 
WAS THERE AFTER WRITE 
;HEADER AND DATA 





SEQ 0151 
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CZRJID.P11 28-MAR-79 08:52 124 ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE SEQ 0132 
6262 
6263 ;*NOW PREPARE TO DO A READ HEADER AND DATA 
ose? s*(THE FIRST READ OPERATION) 
6266 7*CHECK THE DRIVE TYPE AND FILL 
6267 ' :*WRITE FROM BUFFER WITH APPROPRIATE EXPECTED HEADER 
6268 ‘ "pce sme ie ge ha oi PM = RE og 
ose? 022110 2$ 
6271 022110 004737 033314 JSR PC ,a#CLDISK :SET R1-RHCS1, R2-RHCS2 
6272 sR3-RHDS1, R4-RHERI 
6273 “GIVE RH=11 INITIALIZE 
6274 : SETUP UNIT NUMBER 
6275 
6276 
6277 SEAR AEA AT TATA TTA AAATAA ATK AAA Tee ATE 
6278 022114 005737 004636 TST a#RPO6 ;TEST FOR RPO6 DRIVE 
6279 022120 001411 BEQ 19$ TREAT UNIT AS AN RPOS . 
6280 TREAT AS AN RPO6 
6281 SPUR eee ee EEE AT ARETE EREERE EE 
6282 
6283 
6284 022122 004037 033140 JSR RO, @#FLHEAD SAVE HEADER DATA IN WRFROM 
6285 022126 002370 WRFROM ;LOCATION WHERE SAVED 
6286 022130 000004 4 NUMBER OF WORDS SAVED 
6287 022132 011456 11456 :FIRST DATA WORD 
6288 022134 011025 <18.*400>!<21.> SECOND DATA WORD 
6289 022136 000000 0 ; THIRD DATA WORD 
6290 022140 000000 0 sFOURTH DATA WORD 
4 022142 000410 BR 208 CONTINUE WITH TEST 
6293 
gto: 022144 19$: 
6296 022144 004037 033140 JSR RO, a#FLHEAD SAVE HEADER DATA IN WRFROM 
6297 022150 002370 WRFROM LOCATION WHERE SAVED 
6298 022152 000004 4 sNUMBER OF WORDS SAVED 
6299 022154 010632 10632 sFIRST DATA WORD 
6300 022156 011025 <18.*400>!<21.> gSECOND DATA WORD 
6301 022160 000000 0 : THIRD DATA WORD 
6302 022162 000000 0 sFOURTH DATA WORD 
6303 022164 208: : CONTINUE 
6304 
6305 
_— :*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
6 
6308 022164 004037 033164 JSR RO, a#CLAREA CLEAR 256. WORDS. FROM WRFROM+<4*2> 
6309 022170 002400 WRF ROM+<4#2> :STARTING FROM WRFEROM+<4*2> 
6310 022172 000400 256. 3256. WORDS 
ort 022174 065125 <26. #2000>!<18.#40>!<21.> sFILL WITH <26.*2000>!<18.*40>!< 
6 
6313 
$316 StF ILL WRITE FROM BUFFER WITH 377 FROM WORDS 261 TO 266 
6 
6316 022176 004037 033164 JSR RO, @#CLAREA CLEAR 6 WORDS, FROM WRFROM+<260. *2> 
6317 022202 003400 URFROM*<260. *2> STARTING FROM WRFROM+<260.*2> 
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JD.P 


6318 022204 
6319 022206 


6341 022226 
6342 022232 


6346 022254 


6350 022244 


6352 022246 


6355 022250 
6356 022252 


6359 022254 
6362 022256 


6363 022260 
6365 022260 


6369 022270 
6371 022272 


000006 
000377 


004037 


000377 


004737 


005737 
001412 


004037 
001456 
025 
022 
177266 
003434 


000000 
014000 


002350 
000411 


004037 
000632 
025 
022 
177266 
003434 


08:52 124 ADDRESS OVERFLOW ERROR - 
6 
377 


;*CLEAR READ INTO BUFFER 


033164 JSR RO,@#CLAREA 
REINTO 
266. 
377 

033314 JSR PC ,a#CLDISK 


RHER1 (BIT#9) AOE 


36 WORDS 
sFILL WITH 377 


CLEAR 266. WORDS, FROM REINTO 
STARTING FROM REINTO 


3266. WO 
sFILL WITH 377 


;SET R1I-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER| 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


;*CHECK THE DRIVE TYPE AND DO THE APPROPRIATE 
;*FILL READ HEADER AND DATA COMMAND 


SPUR ee EERE TAT ARETE TATA TET ATTA AAA AAAAATAKAAKKKEKAAA AeA E Ae 


004636 TST @#RPO6 ; TEST FOR RPO6 DRIVE 


BEQ 118 


035276 JSR RO, a#RUN 
B14. 
“BYTE 21. 
"BYTE 18. 
326. -4 
RE INTO 
0 
ECILIFMT22 
REFOR 
BR 128 
11$: 
035276 JSR RO, a#RUN 
410. 
“BYTE 21. 
BYTE 18. 
-326.-4 = 
RE INTO ™e 


; TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 


RRR eKeeteeKeeteetkeeteeee 


;SETUP TO RUN FOR DATA COMMAND 
;CYLINDER 814. 

;SECTOR 21. 

s TRACK 18. 

;WORD COUNT (DATA) = 326. + 

74 HEADER WORDS 

;BUS ADDRESS 


STARTING ADDRESS OF DATA 

:BUFFER = REINTO 

;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
:16 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 

;GET READY TO DO A REFOR 

;READ HEADER AND DATA WITH 72 IN RHCS1 


; CONTINUE 


;SETUP TO RUN FOR DATA COMMAND 
sCYLINDER 410. 

SECTOR 21. 

; TRACK 18. 

;WORD COUNT (DATA) = 326. + 

34 HEADER WORDS 

;BUS ADDRESS 


STARTING ADDRESS OF DATA 
:BUFFER = REINTO 


SEQ 0133 
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JD.P 


022502 


022302 
022306 
022310 


022312 


022314 


022320 
022524 


022326 


022334 
022340 


022344 


022350 


022360 


022362 
022366 
022370 


022572 
022376 


28-MAR-79 0 


000000 
014000 


002350 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 


(01507 


004037 
002174 
004444 


004037 
002172 


033462 


033374 
057465 


004506 


002350 
000101 


157630 


033216 


033216 


157632 


128: 


E 11 
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ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 


0 ;00 NOT tre tt BUS gee — 
ECI!FMT22 3:16 BITS PER WORD FORM 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
REFOR :GET READY TO DO A REFOR 

;READ HEADER AND DATA WITH 72 IN RHCS1 


;CONTINUE WITH TESTING 
;*SAVE REGISTERS FOR COMPARISON AFTER 


;*READ HEADER AND DATA 
JSR RO, @#SAVER ;SAVE REGISTERS 


RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE :STARTING ADDRES OF WHERE 
:THE REGISTERS ARE SAVED 
18. sNUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC, ,@#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 


;AND THAT ALL STATUS BITS ARE = 0 
TYPE- ,CPHALT ; CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV QMRP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
:10 "TIME 1" IF P-CLOCK IS PRESENT 
;OR TO 'TIME2’ IF P-CLOCK 1S NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV O#REFOR,-(SP) ;GET READY TO MOVE COMMAND 

BIS WGO!IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 :GO WITH 

372 IN RHCS1 FOR READ DATA 

;WITH INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY Bil IN RHCS1 REGISTER 
908. ;ALLOW 9080 MICRO SECONDS 
839. ;RDY MUST SET BETWEEN 
3690 AND 17470 MICRO SECONDS 
3 *CHANGE SAVED REGISTERS TO EXPECTED VALUES 
JSR RO,a#F ILLRE ;MOV REINTO+#<260,*2> INTO SAVED RHBA 


RHBA ;SAVED REGISTER TO CHANGE 
REINTO*<260.*2> ;DATA 

JSR RO,@#FILLRE :MOv -70. INTO SAVED RHWC 
RHWC SAVED REGISTER TO CHANGE 


SEQ 0134 


Hy 


~~ 


CZRJJDO, RPO4/5/6 FCTNL 
CZRJJO.P11 


022400 


022402 
022406 


022410 
022412 
022414 
022416 
022420 


022422 
022426 


022430 
022432 
022434 
022436 
022440 
022442 
022444 


022446 


022452 
022454 


022456 
022462 


022464 
022470 
022472 


022474 
022476 


022476 
022502 
022504 


022506 


022506 


022514 


28-MAR-79 
177672 


004037 
002200 


000002 . 


040000 


004037 
002222 


000003 
000001 
100000 
000001 
040000 
000001 
002000 


004037 


002202 
001000 


005737 
001405 


004037 
002212 
001457 
000404 
004037 


002212 
000633 


053737 


017737 


CTRLR2 MACY11 30A(1052) 
124 


08:52 


034204 


034204 


033216 


904636 


033216 


033216 


004644 004536 


157464 004524 


11 
25-MAY-79 10:48 T OAGE 136 
ADDRESS OVERFLOW ERROR - RHER1 (BIT#9) AOE 


LBT 
JSR 


RHER1 


AOE 


sDATA 


RO, @#CHREG ;CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 


32 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 1 
;CHANGE SC BIT 

;NEW VALUE OF TRE IS 1 
;CHANGE TRE BIT 


RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
; CHANGE RHDS1 REGISTER 


:3 BIT/BITS TO BE CHANGED 
;NEW VALUE OF ATA IS 1 
;CHANGE ATA BIT 
NEW VALUE OF ERR IS 1 
;CHANGE ERR BIT 

:NEW VALUE OF LBT IS 1 

; CHANGE LBT BIT 


RO,a@#F ILLRE ;MOV AOE INTO SAVED RHERI 
Joy REGISTER TO CHANGE 


>*CHECK DRIVE TYPE BEFORE SETTING UP ‘RHCA' 


TST 
BEQ 


peekeeeeeteeerekereeetereeeeterreeetetkee eee eee eee Ree ee 


a#RPOG ; TEST FOR RPO6 DRIVE 
13% TREAT UNIT AS AN RPO4 
; TREAT UNIT AS AN RPO6 


si eeeeereaeereerereeeeeeeeeeeeAAeeeAeeKeKeeKKAAeeeKeAHAKAAeKAeA As 


138: 


14%: 


MOV 


RO,a#F ILLRE :MOV 815. INTO SAVED RHCA 
;SAVED REGISTER TO CHANGE 
A 


14% ; CONTINUE 


RO, a#F ILLRE >MOV 411. INTO SAVED RHCA 
ae REGISTER TO CHANGE 


;CONTINUE WITH TEST 


Q#ATTENT,@#SAVERE*+24 ;SET APPROPIATE ‘ATA’ BITS 
i4~ WORKING DRIVE Ly 
AVED RHAS LOCATION 
@RHDST, ansAveREsi3 ;RHDST 1S UNPREDICTABLE 


SEQ 01355 
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6486 > *COMPARE REGISTERS BEFORE READ HEADER AND DATA WITH 
ay *REGISTERS AFTER COMMAND 

6489 022522 004037 034312 JSR RO, a#COMREG ; COMPARE SAVED REGISTERS WITH 
6490 ;PRESENT VALUE 

6491 022526 004512 SAVERE GOOD DATA SAVED IN ‘SAVERE' 
6492 022530 002254 wC TEST DATA STARTING FROM ‘RHWC' 
6493 022532 000022 18. 318. REGISTERS TO BE COMPARED 
6494 022534 022540 3$ ;RETURN TO 3$ ON ERROR 

aoe 022536 022544 4$ ;RETURN TO 4$ ON NO ERROR 
6497 

6498 022540 104055 3$: ERROR 55 ;READING HEADER AND DATA WITH 
6499 022542 000207 RTS PC EXPECTED ADDRESS OVERFLOW 
6500 ERROR CAUSED IMPROPER 

6501 REGISTER CHANGE 

6502 ;GOOD DATA GIVES WHAT SHOULD 
6503 ;BE THERE 

6504 _ gRECEIVED DATA GIVES WHAT 

9 ;WAS THERE AFTER COMMAND 
6506 

6507 ;*NOW COMPARE THE DATA READ 

94 022544 4$: 

6 

6510 022544 004037 035342 JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
6511 022550 002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
6512 022552 003434 REINTO ; TEST DATA STARTS FROM REINTO 
6513 022554 000412 266. 3266., WORDS TO BE COMPARED 
6514 022556 022562 5$ ;RETURN TO 5$ ON ERROR 

th 022560 022566 6$ ;RETURN TO 6$ ON NO ERROR 
6516 

6517 

6518 022562 104056 5$: ERROR 56 DATA READ WITH AN EXPECTED 
6519 022564 000207 RTS PC ADDRESS OVERFLOW ERROR 

6520 1S INCORRECT 

6521 ;WORD NO 1 TO 260 SHOULD 
6522 ;BE READ CORRECTLY 

6525 ;WORD NO 261 TO 266 SHOULD 
6524 ;NOT CHANGE DUE TO THE READ 
443 022566 6$: 

6526 

6527 022566 004737 033314 JSR PC ,a#CLDISK 7SET RI-RHCS1, R2-RHCS2 

6528 gR3-RHDS1, R4&-RHERI 

6529 sGIVE RH-11 INITIALIZE 


; SETUP UNIT NUMBER 


ot 
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CZRJID.P 


022572 


022606 
022610 


022612 
022622 
022624 
022630 


022632 
022634 


022636 


022642 
022651 
022652 
022654 


922656 
022660 


022662 


004037 
0 


000000 
004037 
0 


000000 
004037 
003434 


000404 
000377 


004737 


004037 
000000 
000 


000 
177374 
003434 


000000 
014000 


002350 


033140 


033164 


033164 


033314 


035276 


138 
ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE 


;*NOW PREPARE TO READ CYLINDER 0, SECTOR 0, TRACK 0 
;*10 SEE THAT NOTHING GOT WRITTEN ON THERE 
;*W1TH THE ADDRESS OVER FLOW BIT SET (AOE) 


Sp eereereerereeerererrreerereretererereeeeKeneeeKeeneeeeeeereetese 


s*tFILL WRITE FROM BUFFER WITH EXPECTED HEADER 


JSR RO,@#FLHEAD ;SAVE HEADER DATA IN WRFROM 

WRF ROM ;LOCATION WHERE SAVED 

8 ;NUMBER OF WORDS SAVED 

10000 ;FIRST DATA WORD 

0 ; SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 ;FOURTH DATA WORD 

JSR RO, @#CLAREA CLEAR 256. WORDS, FROM WRFROM*<4*2> 
WRFROM+<4#2> STARTING FROM WREROM+<4*#2> 
256. 3256. WORDS 


sFILL WITH 0 


s*FILL READ INTO BUFFER WITH 377 


JSR RO,@#CLAREA ;CLEAR 260. WORDS, FROM REINTO 
REINTO > STARTING FROM REINTO 

260. 3260. WORDS 

377 sFILL WITH 377 

JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 


R3-RHDS1, R4-RHER} 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


:*FILL COMMAND FOR READ HEADER AND DATA 


JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 SECTOR 0 
rte 9g ; TRACK 0 
-256.°4 ;WORD COUNT (DATA) = 256. * 
74 HEADER WORDS 
REINTO ;BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECL! FMT22 316 BITS PER WORD FORMAT 

> INHIBIT ECC CORRECTION ‘ 

:0C NOT INHIBIT HEADER yams 
REFOR ;GET READY 10 DO A REFO 

READ HEADER AND DATA vith 22 IN RHCS! 


*SAVE REGISTERS FOR COMPARISON AFTER READ 


SEQ 0137 


— | 


LE OOOO ee 


CZRJJDO, RPO4/5/6 FCTNL 


CZRJJD.P11 


022664 
022670 
022672 


022674 
022676 


022702 
022706 


022710 


022716 
022722 


022726 


022732 
022734 
022736 
022740 
022742 


022744 
022750 
022752 


022754 
022760 
022762 


022764 
022770 
022772 
022774 
022774 


023000 


28-MAR-79 


004037 
002172 
004512 
000021 
004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 


004704 


004037 
002172 
000000 


004037 
002174 
004444 


004037 
002204 
000001 


004037 
004512 


CTRLR2 MACY11 30A(1052) 
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033462 


033374 
057465 


004506 


902350 
000101 


157246 


033216 


033216 


033216 


034312 


157250 


ST22A: 


111 
25-MAY-79 10:48 PAGE 159 


ADDRESS OVERFLOW ERROR ~ RHER] (BIT#9) AOE SEQ 0138 
JSR RO ,@#SAVER : SAVE REGISTERS 
RHWC RHWC IS THE FIRST REGISTER SAVED 
SAVERE START ING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
17. :NUMBER OF REGISTERS 
;SAVED = 17. 
JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 


;AND THAT ALL STATUS BITS ARE = 0 
TYPE CPHALT : CANNOT CONTINUE TESTING IF NOT 
HALT STOP TEST 


MOV Q#RP4VEC ,ARPVEC +.¥ RPO4 VECTOR ADDRESS 
710 ‘TIME1® IF P=CLOCK IS PRESENT 
;OR TO ‘TIME2* IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Qa#REFOR,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO'1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)*,@RHCS1 ;GO WITH 


372 IN RHCS1 FOR READ DATA 
sWITH INTERRUPT ENABLED 


WAT sWAILT FOR RDY BIT TO SET 
RHCS1 sWAIT FOR RHCS1 REGISTER 
RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
2500. sALLOW 25000 MICRO SECONDS 
2500. sRDY MUST SET BETWEEN 
300 AND 50000 MICRO SECONDS 
> * CHANGE REGISTERS TO EXPECTED VALUE 
JSR RO, OMFILLRE ;MOv 0 INTO SAVED RHWC 
RHWC :SAVED REGISTER TO CHANGE 
0 sDATA 
JSR RO,a#F ILLRE sMOV REINTO*<260.*2> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
REINTO+*<260.*2> sDATA 
JSR RO, @#F ILLRE sMOV 1 INTO SAVED RHDST 
“Weis erg REGISTER TO CHANGE 


;COMPARE REGISTER BEFCRE READ WITH AFTER 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS wilh 
;PRESENT VALUE 
SAVERE ;GOOD DATA SAVED IN “SAVERE* 


a | 


CZRJJDO, RPOG/5/6 FCTNL CIR 


CZRJID.P11 


023002 


023016 


023016 


023022 


023032 


023034 
023036 


023040 


28-MAR-79 


023016 


104031 
000207 


004037 
002370 
003434 
000404 
023034 
023040 


104032 
000207 


LR 
08:52 


035342 


2 MACY11 30A(1052) 
124 


4$: 


2s: 


3$: 
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ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE 


wC TEST DATA STARTING FROM ‘RHWC' 
Ve 317. REGISTERS TO BE COMPARED 
4% RETURN TO 4$ ON ERROR 

1$ ;RETURN TO 1$ ON NO ERROR 
ERROR 21 ;READ HEADER AND DATA ON 

RTS PC ;CYLINDER 0, SECTOR 0 


s TRACK O AFTER A FORCED 

; ADDRESS OVER FLOW ERROR 
sCAUSED IMPROPER REGISTER 
; CHANGE 

:GOOD DATA GIVES WHAT 
;SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT 
sWAS THERE AFTER READ 
;HEADER AND DATA 

:1F HEADER COMPARE ERROR 
:1S FOUND AND THE DATA 
sERROR GIVES THE NEW 
;HEADER TO 

s CYLINDER 633/1457 (OCTAL) 
s THEN ‘AOE’ OVER FLOWED 


> INTO HERE 
>*COMPARE DATA/READ 
JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOO0D DATA STARTS FROM WRFROM 
REINTO : TEST DATA STARTS FROM REINTO 
260. :260., WORDS 10 BE COMPARED 
2$ ;RETURN TO 2$ ON ERROR 
3$ ;RETURN TO 3$ ON NO ERROR 
ERROR 32 ;READ HEADER AND DATA 
RTS PC :ON CYLINDER 0, TRACK 0 


;SECTOR O AFTER A FORCED 

; "AOE" ERROR CAUSED 

;AN ERROR 

s1F FIRST WORD IS 
:10633/11457 (OCTAL) THEN 
;"AOE* OVER FLOWED INTO HERE 


| 


SEQ 0139 





aa 
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023040 
023042 
023046 


023054 


023060 


023076 


023100 
023104 
023106 
023110 


28-MAR-79 08:52 


000004 
012706 
012737 


004737 


004037 


000000 


004037 
002400 
000412 
000000 


004037 
000000 
000 
000 
177362 
002370 


000000 
010000 


001000 


000025 
033314 


033140 


033164 


035276 


004504 
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ADDRESS OVERFLOW ERROR = RHER1 (BIT#9) AOE SEQ 0140 


sy eeteeeeeereerererererererrerrereeereeeeeKeeAKKeKeKeKeeeeeATeeeee 


s*TEST 25 FORMAT ERROR = RHER1 (BIT #4)FMT 


i 


7@ 
-* 
°@ 
-* 
-* 
-* 
-* 
*@ 
S 


125: 


AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER 0 
SECTOR 0 TRACK 0 WITH 18 BITS PER WORD WHEN THE 
HEADER HAS 16 BITS PER WORD SET 


THIS SHOULD GIVE FORMAT ERROR FER BIT #4 IN RHERI 


THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT 
16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN 


WEARER RBRBBBRBSAARASESSSSERSASARERERASERA RRR RRR RR RR RRR RRR RRA ERA SAAS S| 


SCOPE 
MOV STACK ,SP RESET STACK 
MOV #25,aaTSTNM ; SAVE TEST NUMBER 


JSR PC, ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER| 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


s*FIRST WRITE HEADER AND DATA CYLINDER 0, TRACK 0, SECTOR 0 
stFILL WRITE FROM BUFFER WITH HEADER 


JSR RO, a#F LHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

& ;NUMBER OF WORDS SAVED 
10000 FIRST DATA WORD 

0 ; SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 ;FOURTH DATA WORD 


:*FILL WRITE FROM BUFFER WITH DATA 


JSR RO, a#CLAREA sCLEAR 266. WORDS, FROM WRFROM+<4#2> 
WRFROM+<4#2> sSTARTING FROM WRFEROM+<4*2> 
266. 3266. WORDS 

0 sFILL WITH O 


;*FILL COMMAND 


JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 SECTOR 0 
-BYTE 0 ; TRACK 0 
-266.°4 :WORD COUNT (DATA) = 266. ¢ 
74 HEADER WORDS 
WRFROM BUS ADDRESS 
7 STARTING wo pe ly OF DATA 
:BUFFER = ROM 
0 ;D0 NOT INMIBIT BUS ADDRESS INCREMENT 
FMT22 :16 BITS PER WORD FORMAT 


;DO0 NOT INHIBIT ECC CORRECTION 
;D0 NOT INHIBIT HEADER COMPARE 


oa 


L141 
CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 142 


CZRJJD.P11 28-MAR-79 08:52 125 FORMAT ERROR = RHER1 (BIT #4)FMT SEQ 0141 
6748 023132 002344 WRIFOR GET READY TO DO A WRIFOR 
6749 s WRITE HEADER AND DATA WITH 62 IN RHCS1 
6751 
6752 023134 004737 033375 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
6753 ;AND THAT ALL STATUS BITS ARE = 0 
6754 023140 104401 057465 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 
ore 023144 000000 HALT ;STOP TEST 
6757 023146 013777 004506 157012 MOV OARP4VEC ,ARPVEC 7 SET RPO4 VECTOR ADDRESS 
6758 TO 'TIME1’ IF P-CLOCK IS PRESENT 
6759 “OR TO ‘TIME2* IF P=CLOCK IS NOT THERE 
6760 :'TIME’ WILL ONLY SAVE 
6761 ;CURRENT CYLINDER ADDRESS 
6762 ;AND LOOK AHEAD REGISTERS 
6763 
6764 
6765 023154 013746 002344 MOV Q#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 
6766 023160 052716 000101 BIS MGO'IE, (SP) ;GET READY TO SET GO AND 
6767 ENABLE INTERRUPT 
6768 023164 012677 157010 MOV (SP)+,@RHCS1 ;GO WITH 
6769 362 IN RHCS1 FOR WRITE HEADER AND DATA 
6770 ;WITH INTERRUPT ENABLED 
6771 
6772 
6773 023170 104413 WAT ;WAIT FOR RDY BIT TO SET 
6774 023172 002200 RHCS1 WAIT FOR RHCS1 REGISTER 
6775 023174 000200 RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
6776 023176 004704 2500. ;ALLOW 25000 MICRO SECONDS 
6777 023200 004704 2500. ;RDY MUST SET BETWEEN 
6778 ;00 AND 50000 MICRO SECONDS 
6779 
6780 
6781 023202 004737 0333514 JSR PC ,a#CLDISK ;SET R1I-RHCS1, R2-RHCS2 
6782 7R3-RHDS1, R4-RHER1 
6783 sGIVE RH-11 INITIALIZE 
6784 ; SETUP UNIT NUMBER 


CZRJJDO, RPOG/5/6 FCTNL com te MACY11 x +7 hs 


CZRJID.P11 


023206 
023212 
023214 
023216 


023220 


023232 


023234 
023236 


023240 


023242 
023246 
023250 


023252 


025254 


023260 
023264 


023266 


023274 
023300 


023304 


28-MAR-79 0 


004037 


000377 


004037 
000000 


177366 
002370 


000000 
000000 


002342 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


033164 


035276 


033462 


033374 
057465 


004506 


002342 
000101 


156670 


156672 


M11 
25-MAY-79 10:48 PAGE 143 
FORMAT ERROR = RHER1 (BIT #4)FMT | SEQ 0142 
;*NOW PREPARE TO WRITE WITH WRONG FORMAT 
s*FILL WRITE FROM BUFFER 
JSR RO,@#CLAREA CLEAR 266. WORDS, — WRF ROM 


WRF ROM ; STARTING FROM WRFRO 
266. 3266. WORDS 
377 sFILL WITH 377 


*FILL WRITE DATA COMMAND 


JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 

BYTE 0 ;SECTOR 0 

-BYTE 0 ; TRACK 0 

-266. ;WORD COUNT = 266. 

WRF ROM ;BUS ADDRESS 


:STARTING ADDRESS OF DATA 
;BUFFER = WRFROM ; 
;00 NOT INHIBIT BUS ADDRESS INCREMENT 
;18 BITS PER WORD FORMAT 
;D0 NOT INHIBIT ECC CORRECTION 
;DO0 NOT INHIBIT HEADER COMPARE 
WRIDAT ;GET READY TO DO A WRIDAT 
;WRITE DATA WITH 60 IN RHCS1 


oo 


s*SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
3 tW1TH WRONG FORMAT 


JSR RO,a#SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE ;STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL.DPR,DRY AND Vv = 1 
sAND THAT ALL STATUS BITS ARE = 0 
TYPE ~CPHALT ;CANNOT CONTINUE TESTING IF NOT 
HALT :STGP TEST 


MOV O#RP4VEC ,ARPVEC 7. RPO4 VECTOR ADDRESS 
O 'TIME1* IF P-CLOCK IS PRESENT 
‘OR TO *TIME2* IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!1E,(SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


] 
760 IN RHCS1 FOR WRITE DATA 


one 


CZRJJDO, RPOG/5/6 FCTNL 
28-MAR-79 0 


CZRJID.P11 


023322 
023326 


023330 
023334 
023336 


023340 
023344 


023346 
023350 


023352 
023352 


023356 
023360 


023362 
023366 
023370 
023372 


023372 
023376 


023400 


023410 


023412 
023416 


023420 
023422 
023424 


023426 


104413 


001510 


005737 
001411 


004037 
002172 
177376 


004037 
002174 
002410 
000410 


004037 
002172 
177470 


004037 
002174 
002574 


004037 
002200 


000002 


040000 


004037 
002176 


000001 
000001 
000200 


004037 


004640 


033216 


033216 


033216 


033216 


034204 


034204 


034204 


CTRLR2 MACY11 30A(1052) 
8:52 125 


VAR3: 


VAR4: 


JP3: 


JP4: 


N11 
25-MAY-79 10:48 PAGE 144 
FORMAT ERROR - RHER1 (BIT #4)FMT 


;WITH INTERRUPT ENABLED 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
850. ;ALLOW 8500 as SECONDS 

840. :RDY MUST SET BET 


WEEN 
;100 AND 16900 MICRO SECONDS 
;*CHANGE SAVED REGISTERS TO_EXPECTED VALUE 


i$1 a#RH70 ;RH70 CONTROLLER ? 

BEQ JP3 :1F NOT, SKIP NEXT RH70 CODE 

JSR RO, a#F iLLRE ;MOV -258. INTO SAVED RHWC 

RHWC ;SAVED REGISTER TO CHANGE 

-258. sDATA 

JSR RO, QF ILLRE ;MOV WRFROM+<8.*2> INTO SAVED AREA 


; SAVED REGISTER 10 CHANGE 


RHBA 
WRFROM+<8.*2> DATA 
BR JPG SKIP NEXT RH11 CODE 


JSR RO,a#FILLRE ;MOV -200. INTO SAVED RHWC 
RHWC ;SAVED REGISTER TO CHANGE 
-200. sDATA 

JSR RO,a#FILLRE ;MOV WRFROM+<66.*2> INTO SAVED RHBA 
RHBA SAVED REGISTER TO CHANGE 

WRF ROM+<66.*2> ;DATA 

JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF SC IS 1 

Sc ; CHANGE SC BIT 

1 ;NEW VALUE OF TRE IS 1 

TRE CHANGE TRE BIT 

JSR RO, ad#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS2 CHANGE RHCS2 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF OR IS 1 

OR ;CHANGE OR BIT 


JSR RO, @#CHREG CHANGE BITS IN SAVED REGISTER 


SEQ 0143 


Ty B aad * FCTNL CTRLR2 MACY11 30A(1052) - 2 


D.P 


023432 
023434 


023444 
023446 


023452 
023454 


023456 


023464 
023470 


023472 


023516 


023522 
023526 


023536 


023540 
023542 


023544 
023544 


28-MAR-79 08:52 


002222 
000002 


040000 
004037 


002204 
000001 


053737 


004037 
002202 


000001 


052637 


004037 


004512 


023544 


104057 
000207 


004737 


033216 


004644 


034204 


156472 
177477 
000300 
004516 


034312 


033314 


004536 


004516 


2$: 


B12 
25-MAY-79 10:48 PAGE 145 


FORMAT ERROR - RHER1 (BIT #4)F MT SEQ 0144 
RHDS1 CHANGE RHDS1 REGISTER 

2 ;2 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF ATA IS 1 . 
ATA ; CHANGE ATA BIT 

1 ;NEW VALUE OF ERR IS 1 

ERR . ;CHANGE ERR BIT 

JSR RO,@*F ILLRE ;MOV_ 1 INTO SAVED RHDST +. 

wee aa REGISTER TO CHANGE - 


BIS Q#ATTENT, wsctremisaar ;SET APPROPIATE ‘ATA’ BITS 
;FOR WORKING DRIVE IN 
SAVED RHAS LOCATION 


JSR RO,@#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHER1 ; CHANGE RHER1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF FER IS 1 

FER ; CHANGE FER BIT 

MOV @RHCS2,-(SP) ;GET RHCS2 

BIC #*C<IR!OR>, (SP) ;KEEP IR AND OR 

BIC MIR!OR ,Q#SAVERE+4; CLEAR SAVED IR OR 

BIS (SP)+,@#SAVERE+4;SET OR IR AS REQUIRED 


7 *COMPARE REGISTERS BEFORE waite DATA WITH AFTER ATTEMP( 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
;PRESENT VALUE 

on ;GOOD DATA SAVED IN ‘SAVERE* 

W 


TEST DATA STARTING FROM ‘RHWC* 
18. ;18. REGISTERS TO BE COMPARED 
1$ ;RETURN TO 1$ ON ERROR 
2$ ;RETURN TO 2$ ON NO ERROR 
ERROR 57 ATTEMPTING TO WRITE DATA 
RTS PC WITH WRONG-FORMAT BIT CAUSED 


; IMPROPER REGISTER CHANGE 
;GOOD DATA GJVES WHAT SHOULD 
:BE THERE 

RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER ATTEMPTED WRITE 


:*NOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK 
3*THAT NOTHING GOT WRITTEN 


JSR PC ,a#CLDISK ;SET R1-RHCS1, R2-RHCS2 
. 7R3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 


on 


CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 0 3? Noga” 
CZRJJD.P11 28-MAR-79 08:52 125 


6957 023550 004037 033164 
6958 023554 002370 
6959 023556 000400 
6960 025560 000000 


6965 023562 004037 033164 
6966 023566 003434 

6967 023570 000400 

6968 023572 125252 _ 


6973 023574 004037 035276 
6974 023600 weirs 


6978 023606 003434 


6981 023610 000000 
6982 023612 014000 


6985 023614 002346 


6990 023616 004037 033462 
6991 023622 002172 
6992 023624 004512 


6994 023626 000022 


6997 023630 004737 033374 


6999 023634 104401 057465 
7000 023640 000000 


7002 023642 013777 004506 156516 


C 12 
x tm aT ae -79 10:48 PAGE 146 
T ERROR = RHER1 (BIT #4)FMT 


; SETUP UNIT NUMBER 
S*FILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO,@#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 


SEQ 0145 


WRF ROM sSTARTING FROM WRFROM 
256. 7256. WORDS 
0 sFILL WITH O 


* eeFILL READ INTO BUFFER WITH 125252 


JSR RO,@#CLAREA CLEAR 256. WORDS, FROM REINTO 
aie STARTING FROM REINTO 


256. 3256. WORDS 
125252 sFILL WITH 125252 


;*FILL COMMAND TO READ DATA 
gor RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 


CYLINDER 0 
-BYTE 0 ; SECTOR 0 
-BYTE 0 :TRACK 0 
-256. ;WORD COUNT = 256. 
REINTO ;BUS ADDRESS 
STARTING ADDRESS OF DATA 
;BUFFER = REINTO 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22!ECI 6 BITS PER WORD FORMAT 
; INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER + athe 
READAT ;GET READY TO DO A READAT 


;READ DATA WITH 70 IN RHCS1 


:*SAVE REGISTERS FOR COMPARISON AFTER NORMAL READ 
JSR RO, @#SAVER ;SAVE REGISTERS 


RHWC « ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE > STARTING ADDRES OF WHERE 

sTHE REGISTERS ARE SAVED 
18. s;NUMBER OF REGISTERS 

;SAVED = 18. 


JSR PC ,@#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND Vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 

TYPE »CPHALT ;CANNOT CONTINUE TESTING IF NOT 

HALT STOP TEST 


MOV Q#RP4VEC, ARPVEC 474 RPO4 VECTOR ADDRESS 
O ‘TIME!’ IF P-CLOCK JS PRESENT 
‘OR TO "TIME2' IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


oma 


CZRJJDO, RPO4/5/6 FCTNL cin ee MACY11 Noa 


CZRJID.P11 


023650 
023654 


023660 


023664 


023674 


023676 
023702 
023704 


023706 
023712 
023714 


023716 
023722 
023724 


023726 
023732 


023736 
023744 


023750 
023754 
023764 


023766 
023770 


28-MAR-79 0 


013746 
052716 


012677 


104413 


001507 


004037 
002174 
004434 


004037 
002172 
000000 


004037 
002204 
000001 


017746 
042716 


042737 
052637 


004037 
004512 
002254 
023772 


104033 
000207 


002346 
000101 


156314 


033216 


033216 


033216 


156244 
177477 
000300 
004516 


034312 


004516 


3$: 


D 12 
Tg i -79 10:48 PAGE 1 


147 
T ERROR = RHER1 (BIT #4)FMT 


MOV O@AREADAT ,-(SP) 
BIS #GO!IE, (SP) 


MOV (SP)+,@RHCS1 ; 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
;ENABLE INTERRUPT 

H 


GO WIT 
;70 IN RHCS1 FOR READ DATA 


WITH INTERRUPT ENABLED 


s*CHANGE SAVED REGISTERS 
JSR RO,a#FILLRE 

RHBA 

RE INTO+<256. #2> 


;WAIT FOR RDY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 


;ALLOW 9080 MICRO SECONDS 
;RDY MUST SET BETWEEN 
7690 AND 17470 MICRO SECONDS 


TO EXPECTED VALUE 


MOV REINTO*+<256.*2> INTO SAVED RHBA 
; SAVED ptt TO CHANGE 


JSR RO,a#F ILLRE ;MOV 0 INTO SAVED RHWC 
eee J try REGISTER TO CHANGE 
JSR RO,a#FILLRE ;MOV 1 INTO SAVED RHDST 
prune tt tg REGISTER TO CHANGE 


MOV @RHCS2,-(SP) 

BIC #*C<IR!OR>, (SP) 
BIC 
BIS 


;GET RHCS2 
;KEEP IR AND OR 


WIR!OR,Q#SAVERE+4;CLEAR SAVED IR OR 


(SP)+ ,@#SAVERE+4; 


SET OR IR AS REQUIRED 


:*COMPARE REGISTERS BEFORE READ WITH AFTER 


JSR RO, a#COMREG 


;COMPARE SAVED REGISTERS WITH 


;PRESENT VALUE 


ERROR 33 
RTS PC 


;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
318. REGISTERS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 

;RETURN TO 4$ ON NO ERROR 


;READ DATA AFTER AN 
;ATTEMPTED WRITE WITH WRONG 


; IMPROPER REGISTER CHANGE 
;FORMAT CAUSED 

;GOOD DATA GIVES WHAT SHOULD 
;BE THERE 


SEQ 0146 


aon 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 cs hapa 


CZRJID.P11 


023772 
023772 


024006 


024010 
024012 


024014 


28-MAR-79 08:52 


004037 035342 
002370 


024014 


104034 
000207 


4$: 


5$: 


6$: 


E 12 
25-MAY-79 10:48 PAGE 148 
FORMAT ERROR - RHER1 (BIT #4)FMT 


;RECEIVED DATA GIVES WHAT 
;WAS THERE AFTER READ 


;*COMPARE DATA READ AFTER ATTEMPTED WRITE WITH 


;*WRONG FORMAT BIT 


JSR RO,a#COMPAR 
WRF ROM 


ERROR 34 
RTS PC 


;COMPARE TWO BLOCKS OF ME 
;GOOD DATA STARTS FROM WR 
TEST DATA STARTS FROM RE 
3256., WORDS TO BE COMPAR 
;RETURN TO 5$ ON ERROR 

;RETURN TO 6$ ON NO ERROR 


MORY 
FROM 
INTO 
ED 


;DATA READ AFTER AN ATTEMPT 
7T0 WRITE WITH WRONG FORMAT 
WAS INCORRECT 


SEQ 0147 


a, 


oo an) 


F 12 
CZRJJDO, RPO4/5/6 FCTNL CTRLR2 MACY11 on 25-MAY-79 10:48 PAGE 
CZRJJD.P11 28-MAR-79 08:52 126 


JD.P 


NNN SN NSN SNS OS 
mt kk ak et as et ot ss 
PDR A mt et ee a as os Ls 


024014 
024016 
024022 


024030 


024034 
024040 
024042 
024044 


-_ 


024046 
024052 
024054 
024056 


024000 


024072 


024074 
024076 


024100 


024102 
024106 


000004 
012706 
012737 


004737 


004037 
002370 
000400 
107070 


004037 
003434 
000400 
107070 


004037 


177400 
003434 


000000 
004000 


002346 


004037 
002172 


001000 
000026 


033314 


033164 


033164 


035276 


033462 


004504 


149 
FORMAT ERROR = RHERI (BIT #4)FMT SEQ 0148 


sy eeteeereererererererereeetereeereterereeteeneeeeneteneneeneeeees 


s*TEST 26 FORMAT ERROR - RHERI (BIT #4)FMT 
AN ATTEMPT IS MADE TO READ DATA WITH WRONG 
FORMAT BIT 


-* 
. 
:* 
. 
dh 
. 
-* 
. 
-* 
. 


NO DATA SHOULD BE READ 


er mee ee em core eee ae 


$126: SCOPE 
MOV STACK, SP ;RESET STACK 
MOV #26,a04TSTNM ; SAVE TEST NUMBER 
JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHERI 
;GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


s*FILL WRITE FROM BUFFER WITH 107070 


JSR RO,@#CLAREA ° CLEAR 256. WORDS, FROM WRFROM 
WRF ROM ; STARTING FROM WRFROM 

256. 3256. WORDS 

107070 sFILL WITH 107070 


s*FILL READ INTO BUFFER WITH 107070 


JSR RO,@#CLAREA CLEAR 256. WORDS, FROM REINTO 
REINTO ; STARTING FROM REINTO 

256. 3256. WORDS 

107070 sFILL WITH 107070 


:*FILL COMMAND TO READ WITH WRONG FORMAT 


JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 ;SECTOR 0 
-BYTE 0 ; TRACK 0 
-256. ;WORD COUNT = 256, 
REINTO ;BUS ADDRESS 
STARTING anqee by OF DATA 
;BUFFER = REINTO 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
EC] :18 BITS PER WORD FORMAT 


: INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
READAT GET READY TO DO A READAT 
READ DATA wWlTH 70 IN RHCS1 


;*SAVE REGISTERS FOR COMPARAISON AFTER READ 
JSR RO, @#SAVER ;SAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 


FORMAT ERROR BIT #4 IN RHER1 SHOULD SET 








iw A esas “© FCTNL cin ee MACY11 — 


ZRJIJD.P 
7143 024110 
7145 024112 


7148 024114 


7150 024120 
7151 024124 


7153 024126 


7161 024134 
7162 024140 


7164 024144 


7169 024150 
7170 024152 
7171 024154 
7172 024156 
7173 024160 


7179 024162 
7180 024106 


7182 024170 
7183 024172 
7184 024174 
7185 024176 
7186 024200 


7188 024202 
7189 024206 


7191 024210 
7192 024212 
7193 024214 
7194 024216 
7195 024220 


7197 024222 
7198 024226 


28-MAR-79 08:5 
004512 
000022 


004737 033374 


104401 057465 
000000 


013777 004506 


013746 002346 
052716 900101 


012677 156030 


104413 


001510 


004037 034204 
002200 


000002 


040000 


004037 034204 
002222 


000002 
000001 
100000 
000001 
040000 


004037 033216 
002204 


156032 


G 12 
25-MAY-79 10:48 “PAGE 150 
FORMAT ERROR = RHER1 (BIT #4)FMT 


SAVERE 
18. 


JSR 


TYPE 
HALT 


MOV 


MOV 
BIS 


PC ,a#CHECKT 
/CPHALT 


OARP4VEC ,ARPVEC 


@#READAT ,-(SP) 
#GO!IE, (SP) 


(SP)+,@RHCS1 


sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
;NUMBER OF REGISTERS 
sSAVED = 18. 


;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 

STOP TEST 


;SET RPO4 VECTOR ADDRESS 

;T0 ‘TIME1® IF P-CLOCK IS PRESENT 

;OR TO 'TIME2’ IF P=CLOCK IS NOT THERE 
;'TIME’ WILL ONLY SAVE 

;CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 

;GO WITH 


:70 IN RHCS1 FOR READ DATA 


;WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 
;WAIT FOR RHCS1 REGISTER 
;WAIT FOR RDY BIT IN RHCS1 REGISTER 


;ALLOW 8500 MICRO SECONDS 
;RDY MUST SET BETWEEN 
;100 AND 16900 MICRO SECONDS 


> *CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR 
RHCS1 


RO, a#CHREG 


RO, @#CHREG 


RO, @#FILLRE 


; CHANGE BITS IN SAVED REGISTER 
CHANGE RHCS1 REGISTER 


3:2 BIT/BITS TO BE CHANGED 
NEW VALUE OF SC IS 1 
;CHANGE SC BIT 

;NEW VALUE OF TRE IS 1 
CHANGE TRE BIT 


;CHANGE BITS IN SAVED REGISTER 
;CHANGE RHDS1 REGISTER 


3:2 BIT/BITS TO BE CHANGED 
;NEW VALUE OF ATA IS 1 
;CHANGE ATA BIT 

;NEW VALUE OF ERR IS 1 

; CHANGE ERR BIT 


MOV 1 INTO SAVED RHDST 
SAVED REGISTER TO CHANGE 


SEQ 0149 


an 


aw! » ead FCTNL CTRLR2 MACY11 — 


D.P 


024230 


024232 
024236 


024240 
024242 
024244 


024246 


024254 
024260 
024264 
024272 


024276 


024302 
024304 
024306 
024310 
024312 


024314 
024316 


024320 


024320 
024324 
024326 
024330 
024352 
024334 


024336 
024340 


28-MAR-79 08:52 


000001 


004037 
002202 


000001 
000001 
000020 


053737 


017746 


052637 


004037 


004512 
002254 
000022 
024314 
024320 


104057 
900207 


004037 
002370 
003434 
000400 
024336 
024342 


104034 
000207 


034204 


004644 


155716 
177477 
000300 
004516 


034312 


035342 


004536 


004516 


2$: 


3$: 


H 12 
10:48 "p 


25-MAY-79 AGE 151 

FORMAT ERROR = RHER1 (BIT #4) FMT SEQ 0150 

1 sDATA 

JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 

RHER] s CHANGE RHER1 REGISTER 

1 :1 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF FER IS 1 

FER ; CHANGE FER BIT 

BIS O#ATTENT, @#SAVERE*+24 ;SET APPROPIATE ‘ATA’ BITS 
>FOR WORKING DRIVE iN 
;SAVED RHAS LOCATION 

MOV @RHCS2,-(SP) :GET RHCS2 

BIC M*C<IR'OR>, (SP) ; KEEP IR AND OR 

BIC WIR'OR, AMSAVERE+4; CLEAR SAVED IR OR 

BIS (SP)*, @#SAVERE+4;SET OR IR AS REQUIRED 


> *COMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 


JSR RO, a#COMREG 
SAVERE 


ERROR 57 
RTS PC 


;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

;GOOD DATA SAVED IN ‘SAVERE' 
TEST DATA STARTING FROM ‘RHWC' 
718. REGISTERS TO BE COMPARED 
RETURN TO 1$ ON ERROR 

;RETURN TO 2$ ON NO ERROR 


sATTEMPTING TO READ DATA 

sWI1TH WRONG FORMAT BIT CAUSED 

; IMPROPER REGISTER CHANGE 

my Ai GIVES WHAT SHOULD BE 

3TH 

sRECE!VED DATA GIVES WHAT WAS THERE 
;AFTER READ DATA 


>*COMPARE READ INTO BUFFER TO CHECK THAT NOTHING WAS READ 


JSR RO,a#COMPAR 
M 


REINTO 
256. 

3$ 

4$ 

ERROR 54 
RTS PC 


;COMPARE TWO BLOCKS OF MEMORY 
:GOOD DATA STARTS FROM WRFROM 
TEST DATA STARTS FROM REINTO 
:250., WORDS TO BE COMPARED 
;RETURN TO 3$ ON ERROR 
;RETURN TO 4$ ON NO ERROR 


;ATTCMPT TO READ 

sWlTh WRONG FORMAT BIT 
sCHANGED READ INTO BUFFER 
;GOOD DATA GIVES WHAT SHOULD 
:BE THERE 

;BAD DATA GIVES WHAT WAS 


aon 
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7255 
7256 
7257 024342 
7258 


30A(1052) 
126 


4$: 


25-MAY-79 


1 12 
10:48 PAGE 


152 


FORMAT ERROR = RHER] (BIT #4)FMT 


; THERE AFTER READ DATA 


SEQ 0151 


aon 
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CZRJJD.P11 28-MAR-79 08:52 126 FORMAT ERROR - RHER1 (BIT #4)FMT SEQ 0152 
7259 
7260 ppeteeerererenrereerrerererererereeerereeterteeeeeeeeeeeeeTe eee 
hg :*TEST 27 REGISTER MODIFICATION REFUSED - RHERI(BIT #2),RMR 
7263 7° CYLINDER] TRACK 0, SECTOR O WILL BE WRITTEN WITH 
“cee :¢ 200 WORDS OF 2000 BY A WRITE HEADER AND DATA COMMAND 
-@ 
rcos if THE HEADS WILL BE BROUGHT TO CYLINDER 0 BY A SEEK 
-* 
7268 al A READ DATA COMMAND WILL BE GIVEN TO CYLINDER 1 TRACK 0 
7269 ;@ SECTOR 0 150. WORDS. THIS WILL TAKE AT 
7270 3* LEAST 7 MILI SECONDS. IMMEDIATELY AFTER GO AT 
7271 ;* IMPLIED SEEK TIME, WRITE INTO A REGISTER WILL BE ATTMEPTED 
7272 3* THEN READY WILL BE WAITED ON TO COMPLETE THE READ DATA 
7273 3* THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ 
7274 ;® SHOULD BE GOOD 
7275 ;* THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST, RHER2 
rere ;* RHOF, RHCA, RHER3S 
7278 ppeMeeeeeeeeeeretedeererenetetttrerreeereeeKeKetAteKeeeneeTereee 
7279 024342 000004 TST27: SCOPE 
7280 024344 012706 001000 MOV WSTACK,SP ;RESET STACK 
fo 4 024350 012737 000027 004504 MOV #27,a#TSTNM > SAVE TEST NUMBER 
7283 024356 004737 033314 JSR PC ,a#CLDISK 7SET R1-RHCS1, R2-RHCS2 
7284 ;R3-RHDS1, R4-RHERI 
7285 3GIVE RH-11 INITIALIZE 
7286 ;SETUP UNIT NUMBER 
7287 024362 012737 002200 004652 MOV #WRHCS1 ,a#TMPO sFIRST REGISTER TO BE TESTED 
fo 024370 012737 000007 004660 MOV #7,a#TMPS ;NUMBER OF REGISTERS TO BE TESTED 
7290 >*PREPARE TO WRITE HEADER AND DATA CYLINDER 1, TRACK 0, SECTOR 0 
f344 s*FILL WRITE FROM BUFFER WITH HEADER 
7293 024376 $122: 
7295 024376 004737 033314 JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
7296 7R3-RHDS1, R4-RHER1 
7297 :GIVE RH-11 INITIALIZE 
faa ;SETUP UNIT NUMBER 
7300 024402 004037 033140 JSR RO, @#FLHEAD ;SAVE HEADER DATA IN WRFROM 
7301 024406 002370 WRFROM ;LOCATION WHERE SAVED 
7302 024410 000004 4 :NUMBER OF WORDS SAVED 
7303 024412 010001 10001 :FIRST DATA WORD 
7304 024414 000000 0 ;SECOND DATA WORD 
7305 024416 000000 0 ; THIRD DATA WORD 
cae 024420 000000 0 ;FOURTH DATA WORD 
feed s*FILL WRITE FROM BUFFER WITH DATA 
7310 024422 004037 033164 JSR RO, @#CLAREA ;CLEAR 256. WORDS, FROM WRFROM+<4*#2> 
7311 024426 002400 WRFROM+<4#2> sSTARTING FROM WRF ROM+<4#2> 
7312 024430 000400 256. 3256. WORDS 
7315 024432 002000 2000 sFILL WITH 2000 


an 
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004037 035276 
024440 000001 
024442 000 
7320 024443 000 
7321 024444 177464 
002370 


7323 024446 


7315 
7316 
7317 024434 
7318 
7319 


000000 
010000 


7326 024450 
7327 024452 


7330 024454 002344 


033374 
057465 


7334 024456 004737 


7336 024462 104401 
7337 024466 000000 
7339 024470 013777 


004506 155470 


002344 
000101 


7347 024476 013746 
7348 024502 052716 


73 PC ,@@CHECKT 


7367 024530 104401 
7368 024534 000000 


057465 


CHECKS DVA,RDY,MOL,DPR, 


25-MAY-79 


:*FILL COMMAND 
* RO,a#RUN 
-BYTE 0 

-BYTE 0 
-200.-4 


WRF ROM 


0 
FMT22 


WRIFOR 


K 12 
10:48 * PAGE 154 
REGISTER MODIFICATION REFISED - RHERI(BIT #2),RMR 


SEQ 0153 


; SETUP Mh _ FOR DATA COMMAND 


: 0 
:WORD COUNT (DATA) = 200. + 


74 HEADER WORDS 


:BUS ADDRESS 

STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 

;D00 NOT INHIBIT BUS ADDRESS INCREMENT 
:16 BITS PER WORD FORMAT 

;DO0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT HEADER COMPARE 

;GET READY TO DO A WRIFOR 


;WRITE HEADER AND DATA WITH 62 IN RHCS1 


JSR PC ,a#CHECKT 


TYPE »CPHALT 
HALT 


MOV OARP4VEC,ARPVEC 


MOV O#WRIFOR,-(SP) 
BIS #GC!IE, (SP) 


DRY AND vv = 1 


TYPE ,CPHALT 
HALT 


CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 

;STOP TEST 


;SET RPO4 VECTOR ADDRESS 
:TO ‘TIME1" IF P-CLOCK IS PRESENT 
;OR TO *TIME2* IF P=CLOCK IS NOT THERE 


:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 


AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 
;STOP TEST 


on 
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024536 
024542 


024544 


024552 
024556 


024562 


024566 


024576 


024600 
024604 
024606 
024610 


024612 
024616 
024620 
024622 


024624 
024630 
024632 
024634 


024636 
024642 
024644 
024645 
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004037 
000000 


013777 


013746 
052716 


012677 


104413 


001502 


004037 
002000 
004037 
000077 
008434 


000400 
000077 


004037 
000001 
000 
000 


033264 


004506 


002352 
000101 


155412 


033164 


033164 


033164 


035276 


155414 
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REGISTER MODIFICATION REFUSED = RHERI(BIT #2) ,RMR 


JSR RO, @#SEEKCY ;SEEK FOR 
0 CYLINDER 0 


MOV O#RP4VEC ,ARPVEC +4 RPO4 VECTOR ADDRESS 
*TIME1’ IF P-CLOCK IS PRESEN 
‘OR TO "TIME2' IF P=CLOCK IS NOT THERE 
:'TIME’ WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOCK AHEAD REGISTERS 


MOV @#SEECOM,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GE7 READY TO SET GO AND 
s;ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 GO WITH 


74 IN RHCS1 FOR SEEK 
;WITH INTERRUPT ENABLED 


WAT ;WAIT FOR DRY BIT TO SET 

RHDS1 ;WAIT FOR RHDS1 REGISTER 

DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
1534. ALLOW 15340 MICRO SECONDS 

834. ;DRY MUST SET BETWEE 


N 
;7000 AND 23680 MICRO SECONDS 
;*PREPARE FOR A READ DATA 
tFILL WRITE FROM BUFFER WITH EXPECTED DATA FROM READ 


JSR RO, @#CLAREA ;CLEAR 150. WORDS, FROM WRFROM 
WRF ROM 7 STARTING FROM WRFROM 
150. 3150. WORDS 
2000 FILL WITH 2000 
JSR RO,@#CLAREA CLEAR 106. WORDS, FROM WRFROM+<150.*2> 
URFROM*< 150. *?> STARTING FROM WRFEROM+<150.*2> 
106. ;106. WORDS 
77 sFILL WITH 77 


:*FILL READ INTO BUFFER WITH DATA OTHER THAN WHAT IS EXPECTED 
JSR RO,@#CLAREA CLEAR 256. WORDS, FROM REINTO 


REINTO ‘ STARTING FROM REINTO 

256. 3256. WORDS 

77 sFILL WITH 77 

*FILL READ DATA COMMAND 

JSR RO, a#RUN ;SETUP TO RUN FOR DATA COMMAND 
1 CYLINDER 1 

-BYTE 0 SECTOR 0 

-BYTE 0 ; TRACK 0 


SEQ 0154 


on 
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024646 
024650 


024652 
024654 


024656 


024660 
024664 
024666 


024670 


024712 
024716 


024722 


024726 
024732 


024736 


024742 
024744 
020746 
024750 
024752 


28-MAR-79 08:52 


177552 
003434 


000000 
014000 


002346 


004037 
002172 
004512 
000022 


013746 
052716 


012677 


013700 
012730 


010037 


104413 


002237 


033462 


002346 
000101 


155252 


004652 
602006 


004652 
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156 
REGISTER MODIFICATION REFiISED = RHERI(BIT #2),RMR 


-150. 
REINTO 


0 
ECI!FMT22 


READAT 


;WORD COUNT = 150. 

;BUS ADDRESS 

STARTING ADDRESS OF DATA 

:BUFFER = REINTO 

;00 NOT sg of BUS ADDRESS INCREMENT 
716 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:DO NOT INHIBIT HEADER COMPARE 

;GET READY TO DO A READAT 


;READ DATA WITH 70 IN RHCS1 


;*SAVE REGISTERS FOR COMPARISON AFTER hg WRITE 


;tINTO A REGISTER WHILE 


JSR RO, a#SAVER 
RHWC 

SAVERE 

17459 


MOV @#READAT,-(SP) 
BIS #GO!IE, (SP) 


MOV (SP)+,@RHCS1 


MOV av TMPO, 


THE READ IS GOING O 

;SAVE REGISTERS 

;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 

; THE REGISTERS ARE SAVED 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
ENABLE INTERRUPT 

;GO WITH 


;70 IN RHCS1 FOR READ DATA 


;WITH INTERRUPT ENABLED 


SET UP RO FOR WRITE 


RO 
MOV #B1T1'!BiT2'B1T10,a(RO)+ ATTEMPT TO WRITE INTO 


MOV RO,a#TMPO 


REGISTERS DURING IMPLIED SEEK 
:SAVE OFF RO 


;*NOW RMR 1S SET BUT THE COMPLETION OF READ MUST BE 


;*WAITED ON 


;WAIT FOR RDY BIT TO SET 

WAIT FOR RHCS1 REGISTER 

WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 11830 MICRO SECONDS 

;RDY MUST SET BETWEEN 

3:00 AND 23660 MiCRO SECONDS 


SEQ 0155 


aon 
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024754 
024760 


024762 
024764 
024766 


024770 
024774 


024776 
025000 
025002 


025004 


025010 
025012 


025014 
025020 
025022 


025032 
025034 


025042 
025046 


025050 
025052 
025054 


025056 
025062 
025064 


025066 
025072 
025074 


025076 


004037 
002234 


000001 
000001 
000001 


004037 
002200 


000001 
000001 
100000 


004037 


002204 
000001 


004037 
002222 
000002 


040000 
053737 


004037 
002202 


000001 
000001 
000004 


004037 
002174 
604110 


004037 
002172 
000000 


004037 


08:52 


034204 


034204 


033216 


034204 


004644 


034204 


033216 


0335216 


034312 


004536 


25-MAY-79 10:48 MAGE 57 Sax oe 
REGISTER.MODIF ICATION SF ruseD - RHERI(BIT #2),RMR ae SEQ 0156 


;*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCC ; CHANGE RHCC REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF BITO IS 1 

B1T0 ;CHANGE BITO BIT 

JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
RHCS1 ; CHANGE RHCS1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF SC 1S 1 

$c ;CHANGE SC BIT 

JSR RO,a#F ILLRE ;MOV 1 INTO SAVED RHDST 

RHDST SAVED REGISTER TO CHANGE 

1 :DATA 

JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHDS1 ; CHANGE RHDS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 

1 NEW VALUE OF ATA IS 1 

ATA ;CHANGE ATA BIT 

1 ;NEW VALUE OF ERR IS 1 

ERR ;CHANGE ERR BIT 


BIS Q#ATTENT,QMSAVERE+24 ;SET APPROPIATE ‘ATA® BITS 
;FOR WORKING DRIVE IN 
; SAVED RHAS LOCATION 


JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 

RHER| ; CHANGE RHER1 REGISTER 

1 ;1 BIT/BITS TO BE CHANGED 

1 ;NEW VALUE OF RMR IS 1 

RMR ; CHANGE RMR BIT 

JSR RO, a#F ILLRE MOV REINTO#<150.*2> INTO SAVED RHBA 


RHBA :SAVED REGISTER TO CHANGE 
RE INTO+#<150.#2> sDATA 


JSR RO, a#F ILLRE MOV 0 INTO SAVED RHWC 
we tery REGISTER TO CHANGE 


;*COMPARE REGISTERS BEFORE READ DATA WITH REGISTERS 
;*AFTER READ AND ATTEMPTED MODIFICATION OF REGISTER 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 


Oo 


: B 13 
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7539 sPRESENT VALUE 

7540 025102 004512 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 

7541 025104 002254 we ;TEST DATA STARTING FROM ‘RHWC’ 

7542 025106 000022 18. ;18. REGISTERS TO BE COMPARED \ 
75435 025110 025114 =~ ;RETURN TO 2$ ON ERROR 

fg: 25112 025134 3$ ;RETURN TO 3$ ON NO ERROR 

7546 

7547 025114 2$: 

7548 025114 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 

7549 025116 013700 004652 MOV a#TMPO,RO GET REGISTER BEEING MODIFYED + 2 POINTER 
7550 025122 014037 001122 MOV -(RO),@#$BDADR ;GET ADDRESS OF REGISTER BEING MODIFYED 
7551 025126 104060 ERROR 60 ATTEMPTING TO MODIFY REGISTER 

7552 025130 012600 MOV (SP)+,RO :;POP STACK INTO RO ~ 
7553 025132 000207 RTS PC ;DURING A READ COMMAND CAUSED 

7554 ; IMPROPER REGISTER CHANGE 

7555 :GO0D DATA GIVES WHAT SHOULD 

7556 ;BE THERE 

7557 RECEIVED DATA GIVES WHAT WAS 

7558 ; THERE AFTER READ 

7559 , :*COMPARE DATA READ 

poet 025134 3$: 

7562 025134 004037 035342 JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY | 

7563 025140 002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 

7564 025142 003434 REINTO ; TEST DATA STARTS FROM REINTO 

7565 025144 025150 4$ _ 34%, WORDS TO BE COMPARED 

7566 025146 025154 $123 ;RETURN TO ST23 ON ERROR 

7567 ;RETURN TO ON NO ERROR 

7568 

7569 

7570 025150 104034 4$: ERROR 54 ;DATA READ WITH AN ATTEMPTED 

7571 025152 000207 * RTS PC ;MODIFICATION OF REGISTER 

7572 ' ' ;DURING READ CAUSED ERROR 

7573 025154 005337 004660 STz3: o€C aa TMPS ;COUNT DOWN 

7574 025160 001002 BNE 1$ ~, ;BRANCH IF 7 NOT DONE 

7575 025162 000137 025172 JMP 18130 »  3JUMP TO NEXT TEST 

7576 025106 000137 024376 1$: JMP a#ST22 * ;JUMP TO BEGINING OF TEST 


Qn 
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7578 sy eeeeerereeereeeereeeeereeereeerererereereeKeAeeeeereKerAtesereee 
ade r*TEST 30 REGISTER MODIFICATION REFUSED - RHER1 (BIT #2),'RMR' 
7581 3 A WRITE HEADER AND DATA COMMAND WILL BE GIVEN TO 
7582 ed CYLINDER 1 SECTOR 0 TRACK 0 DATA WORDS 
7583 if OF 070707 
7584 se 
44 if A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER 1 
7587 it SECTOR 0, TRACK 0, 256 WORDS OF 2000 
7588 se AND 4 WORDS OF 2001. IMMEDIATELY AFTER GO 
7589 if AN ATTEMPT WILL BE MADE TO MODIFY A REGISTER 
e344 3 RMR BIT #2 IN RHER1 SHOULD SET 

3% 
7592 i; AFTER THE WRITE 1S COMPLETE ALL REGISTERS WILL 
7593 i BE CHECKED 
7594 ;* 
e444 ;* THE DATA WRITTEN WILL BE READ BACK AND CHECKED 
** 
7597 39 THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST, 
he, it RHER2, RHOF, RHCA, RHER3 
7600 Echt ih ta aia ilaelaialacindlinininth 
7601 025172 000004 TST30: SCOPE 
7602 025174 012706 001000 MOV #STACK,SP RESET STACK 
bas 025200 012737 000030 004504 MOV #30,a#TSTNM SAVE TEST NUMBER 
7605 025206 004737 033314 JSR PC ,a#CLDISK :SET R1-RHCS1, R2-RHCS2 
7606 ;R3-RHDS1, R4-RHER1 

7607 :GIVE RH-11 INITIALIZE 
hee 3: :SETUP UNIT NUMBER 
7610 025212 012737 002200 004652 MOV WRHCS1,a#TMPO ;FILL REGISTER TO BE MODIFIED 
sah 025220 012737 000007 004660 MOV #7,a#TMPS sNUMBER OF REGISTERS TO BE TESTED 
tt :*PREPARE TO WRITE HEADER AND DATA se 

4 

rie 025226 $124: 
7617 025226 004737 033314 JSR PC,a#CLDISK :SET R1-RHCS1, R2-RHCS2 
7618 sR3-RHDS1, R4-RHER1 
7619 :GIVE RH-11 INITIALIZE 
7620 ;SETUP UNIT NUMBER 

7621 

7622 
ro s*FILL WRITE FROM BUFFER WITH HEADER 

624 

7625 025232 004037 033140 JSR RO, @#FLHEAD :SAVE HEADER DATA IN WRFROM 
7626 025236 002370 " WRFROM sLOCATION WHERE SAVED 
7627 025240 000004 ; 4 sNUMBER OF WORDS SAVED 
7628 025242 010001 10001 sFIRST DATA WORD 

7629 025244 000000 0 sSECOND DATA WORD 

7630 025246 000000 0 THIRD DATA WORD 

oe 025250 000000 0 sFOURTH DATA WORD 

6 


7633 SeFILL WRITE FROM BUFFER WITH DATA 





ona 
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025302 


025304 


025314 


025316 


025326 
025330 


025332 
025334 


025336 


025340 


025344 
025350 


025352 


004037 


070707 


004037 


000000 


004037 
070707 
004037 
000001 

000 

000 
177364 
002370 


000000 
010000 


002344 


004737 


104401 
000000 


013777 


033164 


033140 


033164 


035276 


033374 
057465 


004506 


154606 
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60 
REGISTER MODIFICATION REFUSED - RHER] (BIT #2),'RMR* 


RO @ACLAREA 


JSR 
WRFROM+<4#2> 


256. 
070707 


;CLEAR 256. anvina’ FROM WREROM+<4*2> 
oles” RTING FROM WRFROM+<4*2> 


3256. W 
sFILL sits *070707 


*FILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 


JSR RO, a#FLHEAD 
WRF ROM+<260. #2> 

4 

10001 

1 

0 

0 


;SAVE HEADER DATA IN WRFROM+<260.*2> 
;LOCATION WHERE SAVED 

;NUMBER OF WORDS SAVED 

sFIRST DATA WORD 

; SECOND DATA WORD 

; THIRD DATA WORD 

;FOURTH DATA WORD 


stFILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA 


RO,@#CLAREA 


JSR 
WRF ROM+<268.*2> 


4 
70707 


sCLEAR 4 WORDS, FROM WRFROM+<268.*2> 
sSTARTING FROM WRFROM+<268. *2> 


>4 WORDS 
sFILL WITH 70707 


;*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


- 
-BYTE 
-BYTE 
-264.°4 


WRF ROM 
0 
FMT22 
WRIFOR 


JSR 


TYPE 
HALT 


MOV 


RO,@#RUN 


0 
0 


;SETUP TO RUN FOR DATA COMMAND 

s CYLINDER 1 

sSECTOR 0 

; TRACK 0 

sWORD COUNT (DATA) = 264. + ’ 


74 HEADER WORDS 
;BUS ADDRESS 


;STARTING ADDRESS OF DATA 
:BUFFER = WRFROM 
;D0 NOT INHIBIT BUS a INCREMENT 
;16 BITS PER WORD FORMA 
:D0 NOT INHIBIT ECC CORRECTION 
;D0 NOT INHIBIT HEADER COMPARE 
READY TO DO A WRIFOR 


;GET 
WRITE HEADER AND DATA WITH 62 IN RHCS1 


PC ,a#CHECKT 
»CPHALT 


Q#RP4VEC ,ARPVEC 


;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 

STOP TEST 


;SET RPOS VECTOR ADDRESS 

:TO "TIME1' IF P-CLOCK 1S PRESENT 

;OR TO *TIME2* IF P=CLOCK 1S NOT THERE 
;'TIME' WILL ONLY SAVE 

CURRENT CYLINDER ADDRESS 

;AND LOOK AHEAD REGISTERS 


SEQ 0159 


on 
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025360 
025364 


025370 


025374 
025376 
025400 
025402 
025404 


025406 
025412 
025414 
025416 


025420 
025424 
025426 
025430 


025432 


025444 


025446 
025450 


025452 


025454 
025460 
025462 


28-MAR-79 08: 


013746 002344 
052716 000101 


012677 154604 


104413 
002200 
000200 
001725 
001502 


004037 033164 
002370 
000400 
002000 


004037 033164 
003370 
000004 
002001 


004037 035276 
000001 
000 
000 
177400 
002370 


000000 
010000 


002342 


004037 033462 
002172 
004512 


25-MAY-79 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT #2), RMR’ 


MOV 
BIS 


MOV 


a#WRIFOR, 


-(SP) ;GET READY TO MOVE COMMAND 


#GO!IE, (SP) ;GET READY TO SET GO AND 


ENABLE INTERRUPT 


(SP)+,@RHCS1 ;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 


;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
ALLOW 9810 MICRO SECONDS 

;RDY MUST SET BETWEEN 

31470 AND 18150 MICRO SECONDS 


;*NOW PREPARE FOR THE WRITE DATA COMMAND 
:*FILL WRITE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001 
RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM 


JSR 
WRF ROM 


256. 
2000 


4 
2001 


sSTARTING FROM WRFROM 
3256. WORDS 
sFILL WITH 2000 


JSR RO,a#CLAREA CLEAR 4 WORDS, FROM WRFROM+<256. *2> 
WRFROM*+<256.*2> ; 


STARTING FROM WRFROM+<256.*2> 
>4 WORDS 
sFILL WITH 2001 


;*FILL WRITE DATA COMMAND 


JSR 
1 
WRF ROM 


0 
FMT22 


WRIDAT 


RO,@#RUN 


:;SETUP TO RUN FOR DATA COMMAND 
sCYLINDER 1 
:SECTOR 0 
s TRACK 0 
sWORD COUNT = 256. 
;BUS ADDRESS 
sSTARTING ADDRESS OF DATA 
;BUFFER = WRFROM 
;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 
:DO NOT INHIBIT ECC CORRECTION 
:00 NOT INHIBIT HEADER COMPARE 
GET READY TO DO A WRIDAT 
sWRITE DATA WITH 60 IN RHCS1 


> *SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED 
*REGISTER MODIFICATION DURING A WRITE DATA 


RHWe. 
SAVERE 


RO, @#SAVER 


;SAVE REGISTERS 
;RHWC IS THE FIRST REGISTER SAVED 
STARTING ADDRES OF WHERE 


SEQ 0160 


aon 


C 


ZRJJD.P 


025464 


025466 


025472 
025476 


025500 


025506 
025512 


025516 


025522 
025526 


025532 


025536 
025540 
025542 
025544 
025546 


025550 
025554 


025556 
025560 
025562 


025564 
025570 


025572 
025574 
025576 


000022 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


013700 
012730 


010037 


104413 
002200 
000200 
001725 
001502 


004037 
002234 


000001 
000001 
000001 


004037 
002200 


000001 
000001 
100000 


08: 


033374 
057465 


004506 


002342 
000101 


154456 


004652 
002002 


004652 


034204 


034204 
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154460 


THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 


JSR PC ,a#CHECKT ; CHECKS DVA,RDY,MOL,DPR,DRY AND v= 1 
:AND THAT ALL STATUS BITS ARE = 0 

TYPE ,CPHALT : CANNOT CONTINUE TESTING IF NOT 

HALT ;STOP TEST 


MOV OARP4VEC ,ARPVEC +4 RPO4 VECTOR ADDRESS 
"TIME1' IF P-CLOCK IS PRESENT 
‘OR TO 'TIME2’ IF P-CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIDAT,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO'IE, (SP) ;GET READY TO SET GO AND 
;ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 360 WITH . 
60 IN RHCS1 FOR WRITE DATA 
:WITH INTERRUPT ENABLED 


MOV a#TMPO,RO ;SET RO TO REG ADDRESS 

MOV #B111'B1T10,a(RO)* ATTEMPT TO WRITE INTO A REGISTER 
;DURING WRITE DATA 

MOV RO,a#TMPO SAVE OFF NEW REG ADDRESS 


;*NOW RMR MUST BE SET BUT THE COMPLETION OF 
;*WRITE DATA MUST BE WAITED ON 


WAT ;WAIT FOR RDY BIT TO SET 
RHCS1 ;WAIT FOR RHCS1 REGISTER 
RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 


981. ;ALLOW 9810 MICRO SECONDS 
834. ;RDY MUST SET BETWEEN 
;1470 AND 18150 MICRO SECONDS 


:*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#CHREG CHANGE BITS IN SAVED REGISTER 
RHCC ;CHANGE RHCC REGISTER 


1 :1 BIT/BITS TO BE CHANGED 
1 ;NEW VALUE OF BITO 1S 1 
6110 ;CHANGE BITO BIT 


JSR RO, @#@CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 CHANGE RHCS1 REGISTER 


1 :1 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF SC IS 1 


25-MAY-79 10:48 * PAGE 162 

REGISTER MODIFICATION REFUSED - RHER1 (BIT #2),'RMR' SEQ 0161 

s¢ ;CHANGE SC BIT 
| 
| 
J 


On 
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CZRJIJD.P11 28-MAR-79 08:52 130 REGISTER MODIFICATION REFUSED - RHER!] (BIT #2),°RMR‘ SEQ 0162 
7802 025600 004037 034204 JSR RO, a#CHREG sCHANGE BITS IN SAVED REGISTER 
ety 025604 002222 RHDS1 ; CHANGE RHDS1 REGISTER 
7805 025606 000002 2 :2 BIT/BITS TO BE CHANGED 
7806 025610 000001 1 sNEW VALUE OF ATA IS 1 
7807 025612 100000 ATA ; CHANGE ATA BIT 
7808 025614 000001 1 sNEW VALUE OF ERR IS 1 
rote 025616 040000 ERR ; CHANGE ERR BIT 
7811 025620 053737 004644 004536 BIS QWATTENT, AMSAVERE*+24 ;SET APPROPIATE ‘ATA’ BITS 
7812 ;FOR WORKING DRIVE IN 
Oi, :SAVED RHAS LOCATION 
7815 025626 004037 034204 JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
aie 025632 002202 RHERI > CHANGE RHER1 REGISTER 
7818 025634 000001 1 :1 BIT/BITS TO BE CHANGED 
7819 025636 000001 1 ;NEW VALUE OF RMR IS 1 
pest 025640 000004 RMR ; CHANGE RMR BIT 
7822 025642 004037 033216 JSR RO, a#F ILLRE sMOV 1 INTO SAVED RHDST 
7823 025646 002204 RHDST sSAVED REGISTER TO CHANGE 
7824 025650 000001 1 DATA 
re 
7827 025652 004037 033216 JSR RO. a#FILLRE >MOV WRFROM+<256.*2> INTO SAVED RHBA 
7828 025656 002174 RHBA > SAVED REGISTER TO CHANGE 
7829 025660 003370 WRFROM+<256. #2> DATA 
i 
7832 025662 004037 033216 JSR RO, a#F ILLRE sMOV 0 INTO SAVED RHWC 
7833 025666 002172 RHWC sSAVED REGISTER TO CHANGE 
7834 025670 000000 0 DATA 
7835 
7836 
7837 >*COMPARE REGISTERS BEFORE WRITE DATA WITH REGISTERS 
Ate ;*AFTER WRITE AND ATTEMPTED MODIFICATION OF REGISTER 
7840 025672 004037 034312 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
7841 sPRESENT VALUE 
7842 025676 004512 SAVERE :GOOD DATA SAVED IN ‘SAVERE* 
7843 025700 002254 we :TEST DATA STARTING FROM ‘RHWC" 
7844 025702 000022 18. :18. REGISTERS 70 BE COMPARED 
7845 025704 025710 2$ >RETURN TO 2$ ON ERROR 
hang. 025706 925730 3$ ;RETURN TO 3$ ON NO ERROR 
4 
7848 
7849 025710 23: 
7850 025710 010046 MOV RO,-(SP) >;PUSH RO ON STACK 
7851 025712 013700 004652 MOV a#vTMPO,RO :GET REGISTER BEEING MODIFYED * 2 POINTER 
7852 025716 014037 001122 MOV -(RO),a#$BDADR ;GET ADDRESS OF REGISTER BEING MODIFYED 
7853 025722 104060 ERROR 60 sATTEMPTING TO MODIFY REGISTER 
7854 025724 012600 MOV (SP)+,RO ::;POP STACK INTO RO 
7855 025726 000207 RTS PC sDURING A WRITE COMMAND CAUSED 
7856 ; IMPROPER REGISTER GIVES WHAT SHOULD 


7857 ;GQOD DATA GIVES WHAT SHOULD 


aon 
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CIRIID.P 


025730 
025730 


025734 
025740 
025742 
025744 


025746 
025752 
025754 
025756 


025760 


025772 


025774 
025776 


026000 


026002 
026006 
020010 


026012 


026014 


026020 
026026 


004737 


004037 
002370 
000400 
002000 


004037 
003370 
000004 
002001 


004037 
000001 
000 
000 


177374 
003434 


000000 
014000 


002346 


004037 
002172 
004512 


000022 


004737 


104401 
000000 


08:52 


033314 


033164 


933164 


035276 


033462 


033374 
057465 


3$: 
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REGISTER MODIFICATION REFUSED - RHER1 (BIT #2),'"RMR* SEQ 0163 


;BE THERE 
RECEIVED DATA GIVES WHAT WAS 
; THERE AFTER READ 

>*CLEAR ALL ERROR FLAGS 


JSR PC ,a#CLDISK 3SET R1I-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHER1 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


tFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM 

WRF ROM >STARTING FROM WRFROM 

256. 3256. WORDS 

2000 sFILL WITH 2000 

JSR RO,@#CLAREA sCLEAR 4 WORDS, FROM WRFROM+<256.*2> 
WRFROM*+<256.#2> STARTING FROM WRFROM*+<256.*2> 
“ 34 WORDS 

2001 sFILL WITH 2001 


>*NOW THE READ DATA COMMAND WILL BE FILLED 


JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
1 ;CYLINDER 1 

-BYTE 0 SECTOR 0 

-BYTE 0 ; TRACK 0 

-260. ;WORD COUNT = 260. 

REINTO ;BUS ADDRESS 


; STARTING ADDRESS OF DATA 

;BUFFER = REINTO 
0 ;00 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 710 BITS PER WORD FORMAT 

: INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
READAT :GET READY TO DO A READAT 

;READ DATA WITH 70 IN RHCS1 


7 *NOW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, #SAVER ;SAVE REGISTERS 
RHWC ;RHWC IS THE FIRST REGISTER SAVED 
SAVERE STARTING ADDRES OF WHERE 
; THE REGISTERS ARE SAVED 
18. ;NUMBER OF REGISTERS 
;SAVED = 18. 
JSR PC ,@@CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 


;AND THAT ALL STATUS BITS ARE = GO 
TYPE ,CPHALT sCANNOT CONTINUE TESTING IF NOT 
HALT sSTOP TEST 


aon 


CZRJJDO, RPO4/5/6 FCTNL 
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7914 
5 


026026 


026034 
026040 


026044 


026050 
026052 


026054 


026064 


026066 
026072 
026076 
026102 


026104 
026106 
026112 
026116 


026120 
026124 
026130 


026132 
026134 
026140 
026144 


026146 


026146 
026152 
026154 


28-MAR-79 


013777 


013746 
052716 


012677 


001502 


013746 
052716 
011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 


104063 


004037 
002172 
000000 


CTRLR2 MACY11 30A(1052) 
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004506 


002346 
000101 


154130 


002346 
004101 
001124 


001126 
004500 


010500 
001124 
001126 
004500 


033216 


154132 


70$: 


72%: 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT #2),'RMR* SEQ 0164 


MOV @MRPGVEC ,ARPVEC + SET eetae VECTOR ADDRESS 
TO “TIME1’ IF P=CLOCK IS PRESENT 
TOR TO 'TIME2’ IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @#READAT,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 :60 WITH 


;70 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 


MOV aR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 
MOV AR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
WAT ;WAIT FOR RDY BIT 10 SET 

RHCS1 sWALT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
981. [ALLOW 9810 MICRO SECONDS 

834. s;RDY MUST SET RETWEEN 


71470 AND 18150 MICRO SECONDS 


> *COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
7*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


MOV @#READAT,-(SP) ;SAVE COMMAND 

BIS WIE!DVA!GO,(SP) ; INCLUDE IE!DVA!GO 

MOV (SP),@#$GDDAT ;SAVE FOR PRINTOUT 

CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!DVA!GO 
;AND COMMAND SHOULD BE SET 

BEQ 70% BRANCH IF GOOD 

MOV RO, a#$BDDAT ;BAD DATA 

MOV R1,a#REGADR sFAILING REGISTER RHCS1 

ERROR 21 ;DURING ABOVE OPERATION ONLY 


;COMMAND AND IE!DVA!GO SHOULD BE SET 


MOV WMOL!DPRivV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
MOV (SP) ,a#$GDDAT ;SAVE FOR PRINTOUT 
CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPR! VV 
: SHOULD BE SET 
BEQ 72% BRANCH IF GOOD 
MOV R5,a#$BDDAT ;BAD DATA 
MOV R3,Q#REGADR ;FAILING REGISTER RHDS1 
ERROR 63 ;DURING ABOVE OPERATION ONLY 


;MOL!DPR!VV SHOULD BE SET 


:*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO,@#FILLRE MOV 0 INTO SAVED RHWC 
a a REGISTER TO CHANGE 


CZRJJDO, RPO4/S/6 FCTNL 
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026156 
026162 
026164 


026166 
026172 
026174 


026176 


026202 
026204 
026206 
026210 
026212 


026214 
026216 


026220 
026220 


026234 


026236 
026240 


026242 
026246 
026250 
026254 


004037 
002174 
004444 


004037 
002204 
000002 


004037 


004512 
002254 
000022 
026214 
026220 


104033 
000207 


004037 


026242 


104034 
000207 


005337 
001002 
000137 
000137 


2 


033216 


034312 


035342 


004660 


026260 
025226 


MACY11 30A(1052) 
130 


4$: 


5$: 


o$: 


$128: 


1$: 
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66 
REGISTER MODIFICATION REFUSED - RHER1 (BIT #2),'°RMR' SEQ 0165 
JSR RO, a#F ILLRE :MOV REINTO*+<260.*2> INTO SAVED RHBA 
RHBA :SAVED REGISTER TO CHANGE 
REINTO*#<260.*2> sDATA 
JSR RO, a#F ILLRE :MOV 2 INTO SAVED RHDST 
— set REGISTER TO CHANGE 


>*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
>; *AFTER COMMAND 


JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
PRESENT VALUE 

SAVERE ;GOOD DATA SAVED IN ‘SAVERE* 

wC ; TEST DATA STARTING FROM ‘RHWC' 

18. 718. REGISTERS TO BE COMPARED 

4$ ;RETURN TO 4$ ON ERROR 

5$ ;RETURN TO 5$ ON NO ERROR 

ERROR 33 READ DATA CAUSED IMPROPER REGISTER 

RTS PC ; CHANGE 


;GOOD DATA GIVES WHAT SHOULD BE THERE 
;RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
>*NOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 


;*WAS GOOD 

JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 

WRF ROM ;GOOD DATA STARTS FROM WRFROM 
REINTO ; TEST DATA STARTS FROM REINTO 

256. 3256., WORDS TO BE COMPARED 

6$ ;RETURN TO 6$ ON ERROR 

$128 ;RETURN TO ST28 ON NO ERROR 

ERROR 34 ;READ DATA ERROR AFTER A WRITE DATA 
RTS PC WITH REGISTER MODIFICATION 


WITHIN THE WRITE DATA 
self sale : oo NOT COMPLETE THEN REPEAT 


DEC MP5 ; COUNT DOWN 

BNE ‘$. :BRANCH IF 7 NOT DONE 

JMP TS131 :JUMP TO NEXT TEST 

JMP $124 ; JUMP TO BEGINING OF TEST 


an 


‘iene ba RP04/5/6 FCTNL CTRLR2 MACYI1 — 


D.P 


026260 
026262 
026266 


026274 


026300 
026304 
026306 
026310 


026312 
026316 
026320 
026322 


026324 


026336 


026340 
026342 


026344 


026346 
026352 
026554 


026356 
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000004 
012706 
012737 


004737 


004037 
002370 
000400 
000000 


004037 
003434 
000400 
177777 


004037 
oor 


003434 


000000 
014000 


002346 


004037 
002172 
004512 


000022 


001000 
000031 


033314 


033164 


033164 


035276 


033462 


004504 
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REGISTER MODIFICATION REFUSED = RHER1 (BIT #2),‘RMR' SEQ 0166 


sy errereerrererrerrrererereerereereereeereKeKeReereKteteeteeerene 


s*TEST 31 REGISTER MODIFICATION REFUSED - RHER1 (BIT #2)RMR 


A READ DATA COMMAND IS GIVEN TO CYLINDER 0, SECTOR 0 
TRACK 0. IMMEDIATELY AFTER GO RHAS IS WRITTEN INTO 
WITH ALL ONES RMR BIT #2 IN RHER SHOULS NOT SET 


MRR eeeeeeeeeeeeererereeereteAeeeAaeekereRereteeetette 


TST31: 


SCOPE 

MOV #STACK,SP sRESET STACK 

MOV #31 ,a#TSTNM ;SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 


;R3-RHDS1, R4-RHER| 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


stFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, @#CLAREA ;CLEAR 256. WORDS, FROM WRFROM 
WRF ROM : STARTING FROM WRFROM 
256. 3256. WORDS 


sFILL WITH O 
s*FILL READ INTM BUFFER WITH ALL ONES 


JSR RO,@#CLAREA ;CLEAR 256. WORDS, FROM REINTO 
RE INTO STARTING FROM REINTO 

256. 3256. WORDS 

-1 sFILL WITH =1 


:*NOW THE READ DATA COMMAND WILL BE FILLED 


JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 

-BYTE 0 SECTOR 0 

-BYTE 0 ; TRACK 0 

-256. ;WORD COUNT = 256. 

REINTO ;BUS ADDRESS 


;STARTING ADDRESS OF DATA 

‘BUFFER = REINTO 
0 :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI!FMT22 :16 BITS PER WORD FORMAT 

: INHIBIT. ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 
READAT GET READY TO DO A READAT 

READ DATA WlTH 70 IN RHCS1 


>*NOwW SAVE REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 


JSR RO, a#SAVER sSAVE REGISTERS 
RHWC sRHWC 1S THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
18. sNUMBER OF REGISTERS 
sSAVED = 18. 


Oo 


a ee 
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68 
CZRJID.P11 28-MAR-79 08:52 131 REGISTER MODIFICATION REFUSED - RHER1 (BIT #2)RMR SEQ 0167 
8074 
8075 026360 004737 033374 JSR PC ,a#CHECKT CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
8076 :AND THAT ALL STATUS BITS ARE = 0 
8077 026364 104401 057465 TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
sore 026370 000000 HALT STOP TEST 
8080 026372 013777 004506 153566 MOV Q@#RP4VEC ,ARPVEC se RPO4 VECTOR ADDRESS 
8081 TIME!’ IF P=CLOCK IS PRESENT 
8082 som TO 'TIME2' IF P=CLOCK IS NOT THERE 
8083 :*TIME' WILL ONLY SAVE 
8084 CURRENT CYLINDER ADDRESS 
8085 AND LOOK AHEAD REGISTERS 
8086 
8087 
8088 
8089 026400 013746 002346 MOV QWREADAT,-(SP) ;GET READY TO MOVE COMMAND 
8090 026404 052716 000101 BIS #GO'IE, (SP) :GET READY TO SET GO AND 
8091 : s;ENABLE INTERRUPT 
8092 026410 012677 153564 MOV (SP)+,@RHCS1 :G0 WITH 
8093 :70 IN RHCS1 FOR READ DATA 
8094 :WITH INTERRUPT ENABLED 
8095 026414 011100 MOV ari,RO SAVE RHCS1 DURING ABOVE OPERATION 
Sons 026416 011305 MOV aR3,R5 SAVE RHDS1 DURING ABOVE OPERATION 
8098 026420 012777 177777 153570 MOV #=1,QRHAS sWRITE INTO RHAS THIS SHOULD 
8099 NOT SET RMR 
8100 
SG :*TIME 1S NOT IMPORTANT 
8103 026426 104413 WAT :WAIT FOR RDY BIT TO SET 
8104 026430 002200 RHCS1 WAIT FOR RHCS1 REGISTER 
8105 026432 000200 RDY :WAIT FOR RDY BIT IN RHCS1 REGISTER 
8106 026434 003326 1750. ALLOW 17500 maces SECONDS 
8107 026436 000175 125. :RDY MUST SET BETWEEN 
8108 :16250 AND 18780 MICRO SECONDS 


:*COMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
;*RO AND RS IMMEDIATELY AFTER GO IS ISSUED 


8109 

8110 

8111 

8112 

8113 026440 013746 002346 MOV @MREADAT,-(SP) ;SAVE COMMAND 

8114 026444 052716 004101 BIS WIE!DVA!GO,(SP) ; INCLUDE JE!DVA!GO 

8115 026450 011637 001124 MOV (SP),a@#$GDDAT ;SAVE FOR PRINTOUT 

8116 026454 022600 CMP (SP)+,RO ;DURING ABOVE OPERATION ONLY IE!DVA!GO 
8117 : ;AND COMMAND SHOULD BE SET 

8118 026456 001405 BEQ 64$ ;BRANCH IF GOOD 

8119 026460 010037 001126 MOV RO, a#SBDDAT ;BAD DATA 

8120 026464 010137 004500 MOV R1,@#REGADR ;FAILING REGISTER RHCS1 

8121 026470 104021 ERROR 21 ;DURING ABOVE OPERATION ONLY 

8122 ;COMMAND AND IE!DVA!GO SHOULD BE SET 
8123 026472 012746 010500 64$: MOV #MOL !DPR!VV,-(SP) ;SAVE BITS SET DURING OPERATION IN RHDS1 
B124 020476 011637 001124 MOV (SP), @#$GDDAT  ;SAVE FOR PRINTOUT 

8125 026502 022605 CMP (SP)+,R5 ;DURING ABOVE OPERATION ONLY MOL! DPRi vv 
8126 ;SHOULD BE SET 

8127 026504 001405 BEQ 66% ly i GOOD 

8128 026506 010537 001126 MOV RS ,a#$BDDAT ;BAD DAT 

8129 026512 010337 004500 MOV R3,Q#REGADR SPAILING. REGISTER RHDS1 


on 
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CZRJJD.P11 28-MAR-79 08:52 131 REGISTER MODIFICATION REFUSED - RHER1 (BIT #2)RMR SEQ 0168 
8130 026516 104063 ERROR 63 ;DURING ABOVE OPERATION ONLY 
8131 ;MOL!DPR! VV SHOULD BE SET 
sie 026520 66$: 
Sis >*NOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 
8136 026520 004037 033216 JSR RO, a#F ILLRE ;MOV 0 INTO SAVED RHWC 
8137 026524 -902172 RHWC ;SAVED REGISTER TO CHANGE 
8138 026526 000000 0 ;DATA 
8139 
8140 
8141 026530 004037 033216 JSR RO,a#F ILLRE sMOV REINTO+<256.*2> INTO SAVED RHBA 
8142 026534 002174 RHBA SAVED REGISTER TO CHANGE 
8143 026536 004434 ; RE INTO+<256.*2> sDATA 
te 
8146 026540 004037 033216 JSR RO, a#F ILLRE :MOV 1 INTO SAVED RHDST 
8147 026544 002204 RHDST SAVED REGISTER TO CHANGE 
8148 026546 000001 1 ;DATA 
8149 
8150 
8151 026550 004037 033216 JSR RO, a#F ILLRE ;MOv 0 INTO SAVED RHCC 
8152 026554 002234 RHCC SAVED REGISTER TO CHANGE 
8153 026556 000000 0 ;DATA 
8154 
8155 
8156 >*NOW COMPARE REGISTERS BEFORE READ DATA WITH 
at2. ;*AFTER COMMAND 
8159 026560 004037 034312 JSR RO,a#COMREG ;COMPARE SAVED REGISTERS WITH 
8160 ;PRESENT VALUE 
8161 026564 004512 SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
8162 026566 002254 wC TEST DATA STARTING FROM ‘RHWC* 
8163 026570 000022 18. 718. REGISTERS TO BE COMPARED 
8164 026572 026576 18 ;RETURN TO 1$ ON ERROR 
8165 026574 026602 2$ ;RETURN TO 2$ ON NO ERROR 
sss 
8168 026576 104033 1$: ERROR 33 ;READ DATA CAUSED IMPROPER REGISTER 
8169 026600 000207 RTS PC ; CHANGE 
8170 : GOOD DATA GIVES WHAT SHOULD BE THERE 
8171 RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 
8172 :*NOW READ INTO BUFFER Witt BE CHECKED 70 SEE THAT READ 
8173 :*WAS GOOD 
airs 026602 2$: 
8176 026602 004037 035342 JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
8177 026606 002370 WRF ROM ;GOOD DATA STARTS FROM WRFROM 
8178 026610 003434 REINTO TEST DATA STARTS FROM REINTO 
8179 026612 000400 256. 3256., WORDS TO BE COMPARED 
8180 026614 026620 3$ ;RETURN TO 3$ ON ERROR 
8181 026616 026624 4$ ;RETURN TO 4$ ON NO ERROR 
$8 
8184 026620 104034 3$: ERROR 34 / ;READ DATA ERROR AFTER WRITING IN‘O 
8185 026622 000207 RTS mj ;RHAS DURING READ 
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8186 
8187 026624 4$: 
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026624 
026626 
026632 


026640 


026644 


026656 


026656 


026740 


026746 
026754 
026754 


026760 
026764 


28-MAR-79 


000004 
012706 
012737 


004737 


005737 
001402 
000137 


005037 


062737 


012737 


004737 


005077 
005077 


08:52 


001000 
000032 


033314 


004640 
027452 


001200 


001200 


000002 


000100 


027452 
001200 
000002 


026754 


033314 


153206 
153204 


004504 


001200 


001200 


002364 
001200 


001110 
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“Meena eteeeeerereerereeereeererereeeeeeeteereeeeAteeeereeetereee 


T*TEST 32 ILLEGAL FUNCTION RHER1 = (BIT #0, ILF) 


es ee 8 8 


THIS WILL CALCULATE EVERY ILLEGAL FUNCTION 
BETWEEN 0 AND 77. EACH TIME AN ILLEGAL FUNCTION 
1S FORMED IT WILL BE STORED IN ILLEGAL THEN 
EXECUTION OF ILLEGAL 

WILL BE ATTEMPTED AND RESULTS CHECKED 


**@@eeeeeeeeeeeeeeeeeeeteeeeeereereereteereeeeteeteeeteereteteteeteene 


308: 


1$: 
2$: 


3$: 


208: 
19$: 


4$: 


1$132: 


SCOPE 
MOV STACK, SP RESET STACK 
MOV #32,a8TSTNM ; SAVE TEST NUMBER 


JSR PC,a#CLDISK SET R1-RHCS1, R2=-RHCS2 
;R3-RHDS1, R4-RHER1 
:GIVE RH-11 INITIALIZE 


; SETUP UNIT NUMBER 
TST a#RH70 ;RH70 CONTROLLER ? 


BEQ 30% SKIP NEXT IF NOT = 1 
JMP T$133 si SO SKIP THIS TEST enoeocesecccecess 


> *GENERATE ILLEGAL FUNCTION 


CLR aaSTMP) ;GET READY TO MAKE ILLEGAL FUNCTION 
MOV #FUTABL ,RO ;GET POINTER TO BEGINNING OF COMMANDS 
MOV #17.,R5 COUNTER (17 GOOD FUNCTIONS) 

CMP QaSTMP1,(RO)* [1S THIS A LEGAL FUNCTION 

BNE 3$ ;BRANCH IF NOT LEGAL 

ADD #2,a#STMP 1 ;MAKE ANOTHER FUNCTION 

BR 1$ ;GET READY TO TEST NEW FUNCTION 

DEC R5 ;NOT LEGAL SO DECREMENT COUNTER 

BNE 2$ ;BRANCH IF 17 NOT DONE 

BIT #100,aaSTMP1 ;ALL BITS UP TO BIT #5 COMPARED? 
BNE 20% ;BRANCH OUT IF DONE 

BR, 19% i BRANCH TO CONTINUE 

JMP a#7$ DONE 

MOV aaSTMPi, aw ILLEGL ;AN ILLEGAL FUNCTION IS FOUND 


ADD #2, aeSTMP | :GET READY FOR NEW FUNCTION NEXT TIME 


:*ILLEGAL FUNCTION HAS BEEN FOUND 
:*1T IS IN "ILLEGL' 
MOV #4$ ,Q#SLPERR ;ERROR RETURN POINT 


;*SAVE REGISTERS FOR COMPARISON AFTER GO 


;SET RI-RHCS1, R2-RHCS2 
;R3-RHDS1, R4-RHERI 
;GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 
;CLEAR WORD COUNT 
;CLEAR BUS ADDRESS 


JSR PC ,a#CLDISK 


CLR ORHWC 
CLR @RHBA 


res 


an 
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8244 026770 023727 002364 000050 CMP @#ILLEGL,#50 750 AND HIGHER FUNCTIONS ARE DATA 
8245 : ‘FUNCTIONS WHICH WILL SET MXF AND TRE 
8246 026776 103014 BHIS 13$ ‘BRANCH IF ILLEGL IS HIGHER THAN 50 
eet 027000 012737 100000 027354 _ MOV #SC,a#11$412 +p gf cA OF RHCS1 SHOULD HAVE 

NLY 
8249 027006 005037 027376 CLR aW#i2$e12~ EXPECTED VALUE OF RHCS2 SHOULD HAVE 
8250 ‘NOTHING ADDE 
8251 027012 005037 027402 CLR a#12$+16 ‘NO BITS TO BE CLEARED IN RHCS2 
8252 027016 005037 027412 CLR a#15$+6 :RHBA SHOULD BE 0 
8253 027022 005037 027422 CLR a#16$+6 CLEAR SAVED RHWC 
8254 027026 000500 BR 14$ BRANCH 
8255 027030 022737 000064 002364 138: CMP #64 ,Aa#ILLEGL :1S FUNCTION 64 
8256 027036 001020 BNE 17% ‘BRANCH IF NOT 
8257 027040 012737 140000 027354 MOV #SC!TRE,a#11$4+12:SAVED RHCS1 SHOULD HAVE SC AND TRE 
8258 027046 012737 000204 027412 MOV #204 ,a#15$+6 ;RHBA SHOULD HAVE 204 
8259 027054 012737 000102 027422 MOV #102,a#16$+6 :RHWC SHOULD HAVE 102 
8260 027062 012737 001200 027376 MOV ° #MXF'OR,a#12$+12:RHCS2 SHOULD HAVE MXF AND OR 
8261 027070 012737 000100 027402 MOV #IR, a 128416 :RHCS2 SHOULD HAVE IR CLEARED 
8262 027076 000454 ' BR 14$ : BRANCH y 
8263 027100 022737 000066 002364 178: CMP #66, ,A#ILLEGL :1S FUNCTION 66 
8264 027106 001030 BNE 18$ :BRANCH IF NOT 
8265 027110 012777 177672 153054 MOV #-70. ,aRHWC ; MOVE 70 INTO RHWC 
8266 027116 012777 002370 153050 ; MOV #WRFROM,QRHBA ;FILL RHBA WITH WRFROM 
8267 027124 012737 140000 027354 MOV #SC'TRE,@#11$412;SAVED RHCS1 
8268 027132 012737 002164 027412 MOV #WRFROM-<66.*2>,15$+6;RHBA 
8269 027140 012737 177774 027422 MOV #-4.,16$46 : SAVED RHWC 
8270 027146 012737 001200 027376 MOV #MXF'OR,a#12$+12 ;SAVED RHCS2 
8271 027154 005037 027402 CLR awi2$+16 sRHCS2 
8272 027160 012737 000100 027402 MOV #IR,a#12$+16 *RHCS2 SHOULD HAVE IR CLEARED 
8273 027166 000420 PR 14$ “BRANCH 
8274 027170 005077 152776 18$: CLR aRHWC =CLEAR RHWC 
* 8275 027174 005077 152774 CLR @RHBA :CLEAR RHBA ' 
8276 027200 012737 140000 027354 MOV ° #SC!TRE,@#11$4+12:RHCS1 SHOULD HAVE SC AND TRE 
8277 027206 005037 027412 CLR a#15$+6 :RHBA 
8278 027212 005037 027422 CLR a#16$+6 sRHWC 
8279 027216 012737 001000 027376 MOV . #MXF,a#12$+12 ;RHCS2 
8280 027224 005037 027402 CLR a#12$+16 sRHCS2 
8281 027230 14$: “ee 
8282 027230 004037 033462 JSR RO, a#SAVER ;SAVE REGISTERS 
8283 027234 002172 RHWC sRHWC IS THE FIRST REGISTER SAVED ' 
8284 027236 004512 SAVERE STARTING ADDRES OF WHERE 
8285 j sTHE REGISTERS ARE SAVED 
8286 027240 000022 18. [NUMBER OF REGISTERS 
8287 ;SAVED = 18. 
8289 027242 004737 033574 JSR PC, a#CHECKT s CHECKS DVA.RDY,MOL,DPR,DRY AND vv = 1 
8290 sAND THAT ALL STATUS BITS ARE = 0 
8291 027246 104401 057465 TYPE ,CPHALT CANNOT CONTINUE TESTING IF NOT 
8292 027252 000000 HALT :STOP TEST 
8293 027254 013746 002364 MOV Q@#ILLEGL,-(SP) ;GET ILLEGAL FUNCTION 
8294 027260 052716 000101 BIS #GO'IE, (SP) INCLUDE IE AND GO 
aces 027264 012611 MOV (SP)+,aR1 :G0 TO RHCS1 WITH ILLEGAL FUNCTION 
6 
8297 027266 104413 WAT :WAIT FOR RDY BIT TO SET 
8298 027270 002200 RHCS1 :WALT FOR RHCS1 REGISTE 


R 
8299 027272 000200 RDY ;WALT FOR RDY BIT IN RHCS1 REGISTER 





aon 
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8300 027274 001614 908. ; ALLOW 9080 MICRO SECONDS 
8301 027276 001615 907. ;RDY MUST SET BETWEEN 
try) 10 AND 18150 MICRO SECONDS 
tie >*CHANGE SAVED REGISTERS TO EXPECTED VALUE 
8306 027300 004037 034204 JSR RO, @#CHREG ; CHANGE BITS IN SAVED REGISTER 
tre 027304 002202 RHER1 : CHANGE RHER1 REGISTER 
8309 027306 000001 1 :1 BIT/BITS TO BE CHANGED 
8310 027310 000001 1 ' ;NEW VALUE OF ILF IS 1 
sit3 027312 000001 ILF . - CHANGE ILF BIT 
8313 027314 004037 034204 JSR RO,a#CHREG s;CHANGE BITS IN SAVED REGISTER 
Bais 027320 002222 RHDS1 ; CHANGE RHDS1 REGISTER 
8316 027322 000002 2 72 BIT/BITS TO BE pmets 
8317 027324 000001 1 ;NEW VALUE OF ATA IS 
8318 027326 100000 ATA ;CHANGE ATA BIT 
8319 027330 000001 1 NEW VALUE OF ERR IS 1 
$34] 027332 040000 ERR s CHANGE ERR BIT 
8322 027334 053737 004644 004536 BIS Q#ATTENT, AMSAVERE+24 ;SET APPROPIATE ‘ATA® BITS 
8323 sFOR WORKING DRIVE IN 
ease :SAVED RHAS LOCATION 
8326 s*RHCS1 WILL HAVE SC AND TRE ADDED IF FUNCTION IS GREATER THAN 50 
atse 027342 11$: 
8329 027342 004057 034204 JSR RO, a#CHREG : CHANGE BITS IN SAVED REGISTER 
ity 027346 002200 RHCS1 s CHANGE RHCS1 REGISTER 
8332 027350 000001 1 31 BIT/BITS TO BE CHANGED 
8333 027352 000001 1 _— VALUE OF SC IS 1 
8334 027354 100000 sc ; CHANGE SC BIT 
itt 027356 053737 002364 004520 BIS O#ILLEGL, -BSAVERE 6: a ILLEGAL FUNCTION 
8337 s*RHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN 50 
tte 027364 12$: 
8340 027364 004037 034204 JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
tot! 027370 002176 RHCS2 ; CHANGE RHCS2 REGISTER 
8343 027372 000002 2 32 BIT/BITS TO BE CHANGED 
8344 027374 000001 1 >NEW VALUE OF MXF IS 1 
8345 027376 001000 MXF ;CHANGE MXF BIT 
8346 027400 000000 0 sNEW VALUE OF IR IS 0 

47 027402 000100 IR ;CHANGE IR BIT 
Bice 027404 15$: 

4 
8350 027404 004037 033216 JSR RO, a#F ILLRE 7MOV 0 INTO SAVED RHBA 
8351 027410 002174 RHBA sSAVED REGISTER TO CHANGE 
seat 027412 000000 0 DATA 
8354 027414 168: 


on 
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8356 027414 004037 033216 JSR RO, a#F ILLRE sMOvV O INTO SAVED RHWC 
8357 027420 002172 RHWC ;SAVED REGISTER TO CHANGE 
8358 027422 000000 0 sDATA 
8359 
8360 
434! >*NOW COMPARE REGISTERS AFTER GIVING AN ILLEGAL COMMAND 
8363 027424 004037 034312 JSR RO, a#COMREG ; COMPARE SAVED REGISTERS: WITH 
8364 sPRESENT VALUE 
8365 027430 004512 . SAVERE ;GOOD DATA SAVED IN ‘SAVERE' 
8366 027432 002254 wC :TEST DATA STARTING FROM ‘RHWC' 
8367 027434 000022 18. 718. REGISTERS 10 BE COMPARED 
8368 027436 027442 5$ ;RETURN TO 5$ ON ERROR 
8369 027440 027446 6$ :RETURN TO 6$ ON NO ERROR 
Bn 
8372 027442 104051 5$: ERROR 51 :GIVING ILLEGAL FUNCTION CAUSED 
8373 027444 000207 RTS PC ; IMPROPER REGISTER CHANGE 
8374 :GOOD DATA GIVES WHAT : 
8375 ;SHOULD BE THERE 
8376 sRECEIVED DATA GIVES REGISTER 
8377 :CONTENTS AFTER ILLEGAL 
8378 sFUNCTION WA GIVEN 
8379 027446 000137 026662 6$: JMP awit BRANCH FOR NEXT FUNCTION 
8380 027452 7$: 
8381 
8382 027452 108: 
8383 
8384 
8385 


8434 027602 004037 033462 JSR RO, a#SAVER ;SAVE REGISTERS 

8435 027606 002172 RHWC sRHWC 1S THE FIRST REGISTER SAVED 
8436 027610 004512 SAVERE ;STARTING ADDRES OF WHERE 

8437 ; THE REGISTERS ARE SAVED 

8438 027612 000023 19. NUMBER OF REGISTERS 

8439 ;SAVED = 19. 
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8387 
8388 pee eeeeeeeeererereneerererereteteeeeeeeeeeeeeeHeeeTeeeTe eee Ee 
8389 s*TEST 33 OPERATION INCOMPLETE - RHERI(BIT #13)0P] 
8390 Mid A WRITE HEADER AND DATA COMMAND IS GIVEN 
8391 :* CYLINDER 0 SECTOR 1 TRACK O KEYS 0 DATA 177777 
8392 “tg WORDCOUNT 260 
8393 7* 
8394 7* AFTER GO IS GIVEN THEN THREE INDEX PULSES ARE 
8395 5” GIVEN. THIS SHOULD BRING OPI HIGH 
8396 pLeeeeeeerereeerererereeetteeeeeereteeeeeeeeKeeteeKeeneeee Tees 
8397 027452 000004 18133: SCOPE 
8398 027454 012706 001000 MOV WSTACK,SP sRESET STACK 
tne 027460 012737 000033 004504 MOV #353, a#1TSTNM 7 SAVE TEST NUMBER 
8401 027466 004737 033314 JSR PC ,a#CLDISK 7SET R1I-RHCS1, R2-RHCS2 
8402 3R3-RHDS1, R4-RHER1 
8403 ;GIVE RH-11 INITIALIZE 
8404 ;SETUP UNIT NUMBER 
8405 
8406 ;*THESE ARE REGULAR SETUPS 
8407 027472 012777 177374 152472 MOV #-260. ,aRHwC 3256 DATA WORDS 4 HEACER WORDS 
8408 027500 012700 002370 MOV #WRFROM,RO ; THESE TWO INSTRUCTIONS GETS 
8409 027504 010077 152464 MOV RO,@RHBA sADDR. OF WRFROM BUFFER INTO RO AND 
8410 ;BUS ADDRESS REGISTER 
8411 027510 012710 010000 MOV WFMT22, (RO); ;FORMAT=16 BIT WORDS 
8412 > CYLINDER=0 
8413 027514 012720 000001 MOV #1,(RO)+ ;TRACK=0, SECTOR=1, KEYS=0 
8414 027520 005020 CLR (RO)+ KEY1= 0 
8415 027522 005020 CLR-~ (RO)+ ;KEY2=0 
hy 027524 012705 000400 MOV #256.,R5 > COUNTER 
4 
8418 :*SETUP DATA, WRITE HEADER & DATA, AND FORMAT OF THE WRITE 
8419 027530 012720 177777 1$: MOV #-1,(R0)+ ;MOVE ALL ONES FOR DATA 
8420 027534 005305 DEC R5 
8421 027536 001374 BNE 1$ ;BRANCH IF DATA NOT COMPLETE 
8422 027540 012777 000001 152436 MOV #1, QRHDST sTRACK=0 SECTOR=1 
8423 027546 004737 033374 JSR PC ,a#CHECKT ; CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
8424 ; ;AND THAT ALL STATUS BITS ARE = 0 
8425 027552 104401 057465 TYPE ~CPHALT ;CANNOT CONTINUE TESTING IF NOT 
8426 027556 000000 HALT ;STOP TEST 
8427 027560 013711 002344 MOV a#WRIFOR,AR1 :GET READY FOR WRITE HEADER AND 
8428 sDATA WITH 62 IN RHCS1 
8429 027564 005037 004632 CLR avERFLGS ;CLEAR ERROR FLAG 
8430 027570 012777 010000 152412 MOV hab od ORHOF ;FORMAT BIT=1 (16 BIT WORDS) 
tt 027576 005077 152410 CLR @RHCA CYLINDER =0 
4 
8433 :*SAVE REGISTERS FOR COMPARISON AFTER READ 


oo 1 
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027614 


027630 


027634 
027642 


027650 
027654 


027656 
027662 


027666 
027672 


027676 
027702 


027706 
027712 


027714 


027724 


027726 
027732 


027734 
027736 
027740 
027742 
027744 


027746 
027752 
027754 
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005337 
001375 


052710 
042710 


052710 
042710 


052710 
042710 


004037 
002200 


000002 
000001 
100000 
000001 
040000 


004037 
002222 


000002 
000001 
100000 
000001 
040000 


004037 
002204 
000002 


79 08:5 


002220 


000004 


000001 
000113 


004642 


000004 
000004 


000004 
000004 


000004 
000004 


034204 


034204 


033216 


152336 


004642 RUNWAT: 


1$: 
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;*GO TO WRITE HEADER AND DATA 

;*BUT BEFORE GO, ONE INDEX PULSE IS GIVEN 

>*TO CLEAR OUT THE SECTOR CLOCK COUNTER IN THE RH11 
>*SO THAT NO SECTOR PULSES COME DURING THIS TEST 


MOV @#RHMR ,RO 


MOV #DMD ,aRO ;SET DIAGNOSTIC MODE 


BIS #MINX,@RO ;SET INDEX 
BIC #MINX,aRO ;CLEAR INDEX THIS GIVES 
;ONE INDEX PULSE 
BIS #G0,@RHCS1 ; ISSUE THE ‘GO’ BIT TO THE RH11 
MOV #75.,Q@#RUNCTR ;LOAD ‘RUN' LINE DELAY COUNTER 


;= APPROX 450 US ON 11/50 CPU WITH CORE 
;AND PROVIDES FOR TIME TO FILL THE SILO 


DEC O@#RUNCTR ;COUNT DOWN ONCE 
BNE 1$ ;CONTINUE UNTIL = 0 
;* ISSUE THE FIRST DIAGNOSTIC INDEX PULSE 
BIS #MINX, ARO ;SET INDEX PULSE 
BIC #MINX,aRO RESET INDEX 
;*SECOND INDEX PULSE 

BIS #MINX, ARO SET INDEX 

BIC #WMINX,@RO ;CLEAR INDEX 
;*THIRD INDEX PULSE 

BIS #MINX,aRO SET INDEX 

BIC #MINX ARO ;CLEAR INDEX 


7*CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
RHCS1 CHANGE RHCS1 REGISTER 


2 :2 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF SC 1S 1 

SC sCHANGE SC BIT 

1 sNEW VALUE OF TRE IS 1 
TRE ; CHANGE TRE BIT 

JSR RO, a#CHREG :CHANGE BITS IN SAVED REGISTER 
RHDS1 ; CHANGE RHDS1 REGISTER 

2 :2 BIT/BITS TO BE CHANGED 
] ;NEW VALUE OF ATA 1S 1 
ATA > CHANGE ATA BIT 

1 sNEW VALUE OF ERR IS 1 
ERR ;CHANGE ERR BIT 

JSR RO, a#F ILLRE sMOV 2 INTO SAVED RHDST 
peo s SAVED REGISTER TO CHANGE 


NOW RO HAS MAINTENANCE REG. ADDR. 


SEQ 0175 


aon 


H 14 1-2 Tal 
CZRJJDO, RPO4/S/6 FCINL CIRLRZ MACYIT SOA(T052) 25-MAY-79 10:48 "PAGE 177 oe 
SEQ 0176 


8543 030074 004737 033314 3$: JSR PC ,aMCLDISK ;CLEAR THE ‘'GO" BIT 


D.P11 28-MAR-79 08:52 133 OPERATION INCOMPLETE = RHERI(BIT #13)0P] 
8496 
8497 027756 004037 034204 JSR RO, a#CHREG ;CHANGE BITS IN SAVED REGISTER 
aces 027762 002202 RHER| ; CHANGE RHER1 REGISTER 
8500 027764 000001 1 ;1 BIT/BITS TO BE CHANGED 
8501 027766 000001 1 ;NEW VALUE OF OPI IS 1 
t+ 027770 020000 OP] ;CHANGE OPI BIT 
8504 027772 053737 004644 004536 BIS O#ATTENT,@MSAVERE*+24 ;SET APPROPIATE ‘ATA* BITS 
8505 FOR WORKING DRIVE IN 
8307 ; SAVED RHAS LOCATION 
8508 030000 004037 034204 JSR RO, a#CHREG ; CHANGE BITS IN SAVED REGISTER 
4 030004 002220 RHMR ; CHANGE RHMR REGISTER 
8511 030006 000001 1 ;1 BIT/BITS TO BE CHANGED 
8512 030010 000001 1 NEW VALUE OF DMD IS 1 
aelz 030012 000001 DMD CHANGE DMD BIT 
8515 
8516 ;*RHWC,RHBA AND OR AND IR BITS OF RHCS2 WILL NOT BE CHECKED 
8517 030014 017737 152152 004512 MOV Q@RHWC,QMSAVERE ;SAVED RHWC 
8518 030022 017737 152146 004514 MOV @RHBA ,a#SAVERE*+2; SAVED RHBA 
8519 030030 017746 152142 MOV @RHCS2,-(SP) 3GET RHCS2 
8520 030034 042716 177477 BIC W°CCIR!OR>, (SP) ;GET "IR' & ‘OR’ STATES 
8521 030040 042737 000300 004516 BIC MIR!OR,AMSAVERE+4;CLEAR ‘IR' & ‘OR* BITS 
east 030046 052637 004516 BIS (SP)+,@M#SAVERE+4;SET "OR' & "IR" AS REQUIRED 
8524 
Bete > *COMPARE REGISTERS BEFORE WRITE WITH RESULTS AFTER WRITE 
6 
8527 030052 004037 034312 JSR RO, a#COMREG ;COMPARE SAVED REGISTERS WITH 
8528 PRESENT VALUE 
8529 030056 004512 SAVERE ;GOOD DATA SAVED IN ‘SAVERE* 
8530 030060 002254 wC ; TEST DATA STARTING FROM ‘RHWC' 
8531 030062 000021 17. 317. REGISTERS TO BE COMPARED 
8532 030064 030070 2$ ;RETURN TO 2$ ON ERROR 
tt 030006 030074 3% ;RETURN TO 3% ON NO ERROR 
4 
8535 
8536 030070 104071 2s: ERROR 71 ;FORCING OP] CAUSED 
8537 030072 000207 RTS PC ; IMPROPER REGISTER CHANGE 
8538 ;GOOD DATA GIVES WHAT SHOULD BE THERE 
8539 RECEIVED DATA GIVES WHAT WAS THERE 
8540 cAFTER 3 INDEX PULSES WERE ISSUED 
8541 
8542 
| 


on 
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030100 
030102 
030106 


030114 


030120 
030126 
030134 


030142 
030142 


030160 


030162 


030162 


030172 


030174 


030176 
030200 


030202 
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000004 
012706 
012737 


004737 


000000 


004037 
000000 
025 
000 
177774 
002370 


000000 
010000 


002344 


001000 
000034 


033314 


000025 
000025 
000056 


033140 


035276 


004504 


030154 
030170 
004654 
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sp etreeeerererrererereerereeereteeeeeeeeReerereetteerenarereneres 


s*TEST 34 CONSECUTIVE SECTOR FORMATTING 


Se Be Be Be we oe we we 
eaneee eft 8 8 


46 CONSECUTIVE SECTORS WILL BE FORMATTED 
STARTING FROM CYLINDER 0 TRACK O SECTOR 21. 
FORMATTING WILL BE DONE BY A WRITE HEADER AND 
ss i FOR 4 WORDS, ONE SECTOR 


AFTER EACH SECTOR IS WRITTEN, "SC* WILL BE CHECKED 
TO INSURE THAT THERE WERE NO ERRORS 


“@eeeeeteeteeeretetreteteeeerterereeteteeeeeeeeeeeneneneeeteretes 


1$: 


2$: 


SCOPE 

MOV @STACK SP RESET STACK 

MOV #34 ,a#TSTNM ; SAVE TEST NUMBER 

JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
7R3-RHDS1, R4-RHERI 
3GIVE RH-1! INITIALIZE 
; SETUP UNIT NUMBER 

MOV #21. ,a#1$+12 ;SET UP TO START FROM 

MOV #21. ,a#2$+6 SECTOR 21. 

MOV #46. ,a#TMP1 346 SECTORS TO COVER 3 TRACKS 


StFILL WRITE FROM BUFFER WITH THE HEADER 


JSR RO, a#FLHEAD SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

os ;NUMBER OF WORDS SAVED 
10000 sFIRST DATA WORD 

21. > SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 ;FOURTH DATA WORD 


>*NOW THE WRITE HEADER AND DATA COMMAND WILL RE SETUP 


JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
BYTE 21. SECTOR 21. 
-BYTE 0 ; TRACK 0 
-0-4 ;WORD COUNT (DATA) = 0 + 
34 HEADER WORDS 
WRF ROM :BUS ADDRESS 


STARTING ADDRESS OF DATA 

;BUFFER = WRFROM 
0 ;DO NOT INHIBIT BUS oe INCREMENT 
FMT22 ;16 BITS PER WORD FORMA 

:D0 NOT INHIBIT ECC CORRECTION 

;D0 NOT INHIBIT to COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 

;WRITE HEADER AND DATA WITH 62 IN RHCS1 


SEQ 0177 


; Hig MOEN msg 


on 


00 
8601 030204 004737 033374 JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
8602 ;AND THAT ALL STATUS BITS ARE = 0 
8603 030210 104401 057465 TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 
8604 030214 000000 HALT ;STOP TEST 


8606 030216 013777 004506 151742 MCV @#RPGVEC,ARPVEC :SET RPO4 VECTOR ADDRESS 

8607 TO 'TIME1’ IF P-CLOCK IS PRESENT 
8608 “OR TO 'TIME2* IF P-CLOCK IS NOT THERE 
8609 :'TIME' WILL ONLY SAVE 

8610 ; CURRENT CYLINDER ADDRESS 

8611 ;AND LOOK AHEAD REGISTERS 


8614 030224 013746 002344 MOV O@#WRIFGR,-(SP) ;GET READY TO MOVE COMMAND 

8615 030230 052716 000101 BIS #GO!IE, (SP) ;GET READY TO SET GO AND 

8616 s;ENABLE INTERRUPT 

8617 030234 012677 151740 MOV (SP)+,@RHCS1 ;GO WITH 

8618 362 IN RHCS1 FOR WRITE HEADER AND DATA 
8619 ;WITH INTERRUPT ENABLED 

8620 030240 011100 MOV ari, RO :SAVE RHCS1 DURING ABOVE OPERATION 

8621 030242 011305 MOV aR3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


8623 >*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


8625 030244 104413 WAT ;WAIT FOR RDY BIT TO SET 

8626 030246 002200 RHCS1 ;WAIT FOR RHCS1 REGISTER 

8627 030250 000200 RDY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 
8628 030252 005237 1695. ;ALLOW 16950 MICRO SECONDS 

8629 030254 001515 845. ;RDY MUST SET BETWEEN 

8630 38500 AND 25400 MICRO SECONDS 


8632 >*NOW ONE MORE SECTOR HAS BEEN WRITTEN 
8633 :*'SC’ WILL BE CHECKED TO MAKE SURE 
8634 ;*NO ERRORS OCCURED 


8636 030256 017737 151716 002262 MOV @RHCS1,aeCS1 :GET RHCS1 

8637 030264 032737 100000 002262 BIT #SC,aaCSl sis “St” SET 

8638 030272 001403 BEQ 3$ :BRANCH IF "SPECIAL CONDITION’ NOT SET 
8639 030274 004737 035236 JSR PC ,a#PUTREG READ & SAVE ALL RH11 & RPOS REGISTERS 
8640 030300 104072 ERROR 72 :THERE WAS AN UNDEFINED ERROR AFTER 
8641 ;A WRITE HEADER AND DATA 


8645 tA SECTOR HAS BEEN FORMATTED NOW, 
8644 7*THE HARDWARE WILL BE CLEARED AND 
8645 > *CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 


8647 030302 3$: 


8649 930302 004737 033514 JSR PC ,a#CLDISK SET RI-RHCS1, R2-RHCS2 
8650 pR3-RHDS1, R4-RHERI 
8651 :GIVE RH-11 INITIALIZE 
8652 ;SETUP UNIT NUMBER 

© 013705 030154 MOV a#i1$+12,R5 :GET SECTOR TRACK WORD 
2 005205 5 

4 


J 14 a ra! 
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CZRJJD.P11 — 28-MAR-79 08:52 134 CONSECUTIVE SECTOR FORMATTING - SEQ 0178 
INC R 1 

122705 000026 C(MPB «#22... RS SIS 11 22 SECTORS (WHOLE TRACK DONE) ? 





030320 
030322 
030326 
030332 


030334 
030340 
030344 
030350 


030354 
030360 


030362 
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001405 
010537 
010537 
000410 


105037 
105237 
105037 
105237 


005337 
001270 





CTRLR2 
08:52 


030154 
030170 


030154 
030155 
030170 
030171 


004654 


MACY11 30A(1052) 
134 


BEQ 
MOV 
MOV 
BR 


CLRB 
INCB 
CLRB 
INCB 


DEC 
BNE 
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CONSECUTIVE SECTOR FORMATTING 


;YES...DO NEXT TRACK 

3;NO...RESTORE SECTOR TRACK FOR DATA 
;RESTORE SECTOR TRACK FOR ‘'RUN’’ ROUTINE 
CHECK FOR 46 SECTORS COMPLETED 


;SET SECTOR = 0 FOR DATA WRITTEN 
NCR TRACK FOR DATA WRITTEN 

;SET SECTOR = 0 FOR ‘‘RUN’’ ROUTINE 
; INCR TRACK FOR THE ‘'RUN’’ ROUTINE 


;ARE 46 SECTORS DONE ? 
> CONTINUE FORMATTING IF NOT 


;GO ON TO NEXT TEST IF SO 


oo 
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CZRJJD.P11 28-MAR-79 08:52 134 CONSECUTIVE SECTOR FORMATIING SEQ 0180 
8670 
8671 
8672 Sp erererrerererereererereeeeeeerereetereeeteeeeeeeeeeeeeKeneTeeeee 
gh s*TEST 35 OPERATION INCOMPLETE - RHER1 (BIT #13)0P] 
8675 ;* THIS WILL TEST THAT OPI] DOES NOT SET WHEN THREE NORMAL 
gh 7* INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND 
8678 if FIRST 46 CONSECUTIVE SECTORS WILL BE FORMATTED 
8679 7° STARTING FROM CYLINDER 0 TRACK 0 SECTOR 21. 
8680 3* FORMATTING WILL BE DONE BY A WRITE HEADER AND 
8681 :* DATA COMMAND FOR 4 WORDS, ONE SECTOR 
8682 “fd AT A TIME 
8683 7° 
8684 3° THEN A READ HEADER AND DATA WILL BE DONE 
8685 3* FOR CYLINDER 0 TRACK O SECTOR 21 FOR 
8686 3* 11960 WORDS (260.X22X2+260+260) WITH BUS 
8687 3* ADDRESS INHIBIT SET. 
8688 3* 
or yt AT THE END ALL REGISTERS WILL BE CHECKED. 
8691 2 seeeeeeererereererererreeeeretereereeeeKeteeKeneAeeaReeeAKeee eee 
8692 030362 000004 1S135: SCOPE 
8693 030364 012706 001000 MOV #STACK,SP ;RESET STACK 
ao 030370 012737 000035 004504 MOV #35,a#TSTINM - ;SAVE TEST NUMBER 
8696 030376 004737 033314 JSR PC ,a#CLDISK sSET R1-RHCS1, R2-RHCS2 
8697 >R3-RHDS1, R4-RHER1 
8698 sGIVE RH-11 INITIALIZE 
8699 ; SETUP UNIT NUMBER 
8700 030402 012737 000025 030436 MOV #21. ,a#1$+12 :SET UP TO START FROM 
8701 030410 012737 000025 030452 MOV #21. ,a#2$+6 sSECTOR 21. 
hy 030416 012737 000056 004654 MOV #46. ,0#TMP1 46 SECTORS TO COVER 3 TRACKS 
8704 stFILL WRITE FROM BUFFER WITH HEADER 
ares 030424 1$: 
8707 030424 004037 033140 JSR RO,a#FLHEAD sSAVE HEADER DATA IN WRFROM 
8708 030430 002370 WRF ROM sLOCATION WHERE SAVED 
8709 030432 000004 4 sNUMBER OF WORDS SAVED 
8710 030434 010000 10000 sFIRST DATA WORD 
8711 030436 0000625 ri. :SECOND DATA WORD 
8712 030440 000000 0 s THIRD DATA WORD 
ar? 030442 000000 0 sFOURTH DATA WORD 
4 
8715 >*NOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
ty 030444 28: 
8718 030444 004037 035276 JSR RO,@#RUN ;SETUP TO RUN FOR DATA COMMAND 
8719 030450 000000 0 s CYLINDER 0 
8720 030452 025 -—BYTE 21. sSECTOR 21. 
8721 030453 000 -BYTE 0O s TRACK 0 
8722 0304654 177774 -0-4 * WORD COUNT (DATA) = 0 ¢ 
8723 34 HEADER WORDS 
8724 030456 002370 WRF ROM :BUS ADDRESS 
8725 sSTARTING ADDRESS OF DATA 


On 


CZRJJDO, RPOG/5/6 FCTNL 


CZRJID.P11 


030460 
030462 


030464 


030466 


030472 
030476 


030500 


030506 
030512 


030516 


030522 
030524 


030526 
030530 
030532 
030534 
030536 


030540 


030562 


030564 
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000000 
010000 


002344 


004737 


104401 
000000 


013777 


013746 
052716 


012677 - 


001515 


017737 


104072 


000137 


CTRLR2 MACY11 30A(1052) 
135 


08:5? 


033374 
057465 


004506 


002344 
000101 


151456 


151434 
100000 


035236 


031020 


151460 


002262 
002262 
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OPERATION INCOMPLETE = RHER1 (BIT #13)0PI SEQ 0181 


0 
FMT22 


WRIFOR 


JSR 


TYPE 
HALT 


MOV 


MOV 
BIS 


MOV 


MOV 
MOV 


;BUFFER = WRFROM 
;D0 NOT INHIBIT BUS eo INCREMENT 
;16 BITS PER WORD FORM 
:D0 NOT INHIBIT ECC CORRECTION 
00 NOT INHIBIT eae — 
READY TO DO A WwW 


GET 
s WRITE HEADER AND DATA WITH 62 IN RHCS1 


PC ,a#CHECKT 
»CPHALT 


OARP4GVEC,ARPVEC ; 


O#WRIFOR,-(SP) 
#GO'1E, (SP) 


(SP)+,@RHCS1 


ari ,RO 
OR3,R5 


;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
AND THAT ALL STATUS BITS ARE = 0 

; CANNOT CONTINUE TESTING IF NOT 

;STOP TEST 


SET RPO4 VECTOR ADDRESS 
:TO *TIME1® IF P-CLOCK IS PRESENT 
:OR TO *TIME2* IF P=CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
sENABLE INTERRUPT 
360 WITH 
362 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 
:SAVE RHCS1 DURING ABOVE OPERATION 
> SAVE RHDS1 DURING ABOVE OPERATION 


;*ONE REVOLUTION=16670 MICRO SEC, ONE SECTOR=760 MICRO SEC 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 16950 gh SECONDS 

;RDY MUST SET BETWEEN 

8500 AND 35400" MICRO SECONDS 


>*NOW ONE MORE SECTOR HAS BEEN WRITTEN 
;*'SC* WILL BE CHECKED TO MAKE SURE 
:*NO ERRORS OCCURED 


JMP 


@RHCS1,asCS1 
#SC,a#csl 


3$ 
PC ,a#PUTREG 
72 


18136 


;GET RHCS1 

335 “SC° S27 7 

;BRANCH IF ‘‘SPECIAL CONDITION’ NOT SET 
READ & SAVE ALL RH11 & RPOS REGISTERS 
; THERE WAS AN UNDEFINED ERROR AFTER 

;A WRITE HEADER AND DATA 


THIS IS A SETUP ERROR AND ‘OPI" TEST CAN'T CONTI 
‘60 ON TO NEXT TEST 


;*ONE SECTOR HAS BEEN FORMATTED NOW, 
:*THE HARDWARE WILL BE CLEARED AND 


on 
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CZRJJD.P11 28-MAR-79 08:52 135 OPERATION INCOMPLETE = RHER1 (BIT #13)0P] SEQ 0182 
aree >*CHANGES WILL BE MADE TO FORMAT NEXT SECTOR. 
thes 030570 3$: 
8786 030570 004737 033314 JSR PC ,a#CLDISr sSET R1I-RHCS1, R2-RHCS2 
8787 >R3-RHDS1, R4-RHER1 
8788 :GIVE RH=-11 INITIALIZE 
8789 ;SETUP UNIT NUMBER 
8790 030574 013705 030436 MOV a#1$+12,R5 GET SECTOR TRACK WORD 
8791 030600 005205 INC RS 
8792 030602 122705 000026 CMPB #22.,R5 Ts IT 22 (WHOLE TRACK) ? 
8793 030606 001405 BEQ 4$ ;YES...DO NEXT TRACK 
8794 030610 010537 030436 MOV R5,a#1$+12 :NO...RESTORE SECTOR TRACK FOR DATA WRITTEN 
8795 030614 010537 030452 MOV R5,a#2$+6 RESTORE SECTOR TRACK FOR ‘'RUN’’ ROUTINE 
the 030620 000410 BR 5$ sCHECK FOR 46 SECTORS COMPLETED 
8798 030622 105037 030436 4$: CLRB avi$+12 :SET SECTOR = 0 FOR DATA WRITTEN 
8799 030626 105237 030437 INCB a#v1$+13 : INCR TRACK FOR THE ‘'RUN'’ ROUTINE 
8800 030632 105037 030452 CLRB a#2$+6 :SET SECTOR = 0 FOR DATA WRITTEN 
eet 030636 105237 930453 INCB aa2$+7 : INCR TRACK FOR THE ‘’RUN'’ ROUTINE 
8803 030642 005337 004654 5$: DEC aa TMP ARE 46 SECTORS DONE ? 
8804 030646 001266 BNE 1$ sCONTINUE IF NOT 
8805 
8806 
rat :*NOW 46 SECTORS HAVE BEEN FORMATTED 
8809 :*READ HEADER AND DATA FOR 46 SECTORS=11960 WORDS 
8810 :*W1TH BUS ADDRESS INHIBITED 
8811 
8812 
8813 030650 004737 033314 JSR PC,a#CLDISK SET R1-RHCS1, R2-RHCS2 
8814 R3-RHDS1, R4-RHER1 
8815 :GIVE RH-11 INITIALIZE 
at :SETUP UNIT NUMBER 
8818 :*FILL READ HEADER AND DATA COMMAND 
8819 
8820 
8821 030654 004037 035276 JSR RO, a#RUN :SETUP TO RUN FOR DATA COMMAND 
8822 030660 000000 0 sCYLINDER 0 
8823 030662 025 BYTE ris sSECTOR 21. 
8824 030663 000 BYTE 0 : TRACK 0 
8825 030664 150510 -11956.-4 sWORD COUNT (DATA) = 11954, + 
8826 4 HEADER WORDS 
8827 030666 003434 REINTO ;BUS ADDRESS 
8828 : STARTING ADDRESS OF DATA 
8829 :BUFFER = REINTO 
8830 030670 000010 BAI s INHIBIT BUS ADDRESS INCREMENT 

s 8831 030672 014000 FMT22'ECI 716 BITS PER WORD FORMAT 
8832 : INHIBIT ECC CORRECTION 
8833 =DO NOT INHIBIT HEADER COMPARE 
8834 030674 002350 REFOR :GET READY TO DO A REFOR 
8835 >READ HEADER AND DATA WITH 72 IN RHCS1 
8836 


8837 030676 094757 035374 JSR PC ,a@CHECKT sCHECKS DVA,RDY.MOL,DPR,DRY AND Vv = 1 





fale 
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030702 
030706 
030710 


030716 
030722 


030726 


030732 
030734 


030736 
030740 
030742 
030744 
030746 


030750 
030756 
030764 
030766 
030772 


030774 


031016 


031020 
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013777 


013746 
052716 


012677 


104413 
002200 
000200 
121320 
121320 


017737 


104074 


017737 


104072 


CTRLR2 
08: 


LR 
52 
057465 
004506 


002350 
000101 


151246 


151226 
020000 


035236 


151200 
100000 


035236 


MACY11 30A(1052) 
135 


151250 


002264 
002264 


002262 
002262 


6$: 


7$: 
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OPERATION INCOMPLETE = RHER1 (BIT #13)0P] SEQ 0183 
;AND THAT ALL STATUS BITS ARE = 0 

TIPE ,CPHALT ; CANNOT CONTINUE TESTING IF NOT 

HALT ;STOP TEST 


MOV QARP4VEC @RPVEC 4° RPO4 VECTOR ADDRESS 
TO ‘TIME1’ IF P-CLOCK IS PRESENT 
TOR TO ‘TIME2* IF P-CLOCK IS NOT THERE 
;"TIME’ WILL ONLY SAVE 
:CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV @#REFOR,-(SP) ;GET READY TO MOVE COMMAND 


BIS #GO!1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO_ WITH 


372 IN RHCS1 FOR READ DATA 
;WITH INTERRUPT ENABLED 
MOV aR1,RO SAVE RHCS1 DURING ABOVE OPERATION 
MOV @R3,R5 ;SAVE RHDS1 DURING ABOVE OPERATION 


;*TIME 1S NOT IMPORTANT ry 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT. IN RHCS1 REGISTER 
41680. ALLOW 416800 MICRO SECONDS 

41680. ;RDY MUST SET BETWEEN 


3:00 AND 178240 MICRO SECONDS 


; *NOW THAT ALL 11960 WORDS HAVE BEEN READ - 
:*"OPI' WILL BE CHECKED TO BE NOT SET 


MOV @RHER1 ,a#ER1 ;GET RHER1 

BIT ' #OP] ,QWERI iS *OP}* SET ? 

BEQ 6% ;CHECK "SC" IF NOT 

JSR PC ,a#PUTREG ;READ & SAVE ALL RH11 & RPO4 REGISTERS 
ERROR 74 ;READ HEADER AND DATA 


;OVER 3 INDEX PULSES 
:CAUSED ‘OPI’ TO SET 


;*'SC' WILL BE CHECKED 


MOV @RHCS1,a#CS1 3GET. BHCS1 

BIT #SC,aaCS! sib. *St*. Sey 

BEQ 7$ : CONT NUE TESTING IF NOT 

JSR PC ,a#PUTREG READ & SAVE ALL RH11 & RPO4S REGISTERS 
ERROR 72 :READ HEADER AND DATA 


sFOR 11960 WORDS, THAT IS OVER THREE 
; INDEX PULSES, CAUSED AN UNDEFINED ERROR 


:CONTINUE WITH THE NEXT TEST 


Fe ee 
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OPERATION INCOMPLETE = RHER1 (BIT #13)0P] 


CZRJJD.P11 28-MAR-79 0 
8889 
#890 
8891 é ;ereeeereeteeeeeeeereeeererereeereeereneeeeeeeKeAKeteeKeeeeeeeee 
8892 T*TEST 36 HEAD SELECTION TEST ERR & TRE 
8893 ie THIS TESTS HEAD SELECTION LOGIC ONLY. A WRITE + te AND 
8894 :* DATA COMMAND IS GIVEN TO EACH TRACK from 0 TO 18 ON 
8895 ;* CYLINDER 0, SECTOR 0. 
8896 3f THE DATA ON EACH SECTOR IS UNIQUE. THE LEAST SIGNIFICANT 
8897 :* 5 BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT 5 BITS 
tte 3t GIVE TRACK THE NEXT 6 BITS GIVE CYLINDER 
-* 
8900 3: THEN READ HEADER AND DATA IS DONE FOR THE ABOVE AND DATA 
8901 8 CHECKED 
8902 3* 
Beat 7 BETWEEN THE WRITE AND READ ONLY ‘‘ERR’’ AND ‘‘TRE'’ ARE CHECKED 
-* 
8905 38 
8906 ;* ON AN ERROR IN THE READ HEADER AND DATA LOOPING WILL BE 
2444 if ONLY ON THE ERROR SECTOR READ 
8909 eteet Sree oe ee ee a ee 
8910 031020 000004 S136: SCOPE 
8911 031022 012706 001000 MOV #STACK,SP RESET STACK 
444) 031026 012737 000036 004504 MOV #36,a¢TSTNM :SAVE TEST NUMBER 
8914 031034 004737 033314 JSR. PC ,a#CLDISK SET R1-RHCS1, R2-RHCS2 
8915 :R3-RHDS1, R4-RHER1 
8916 :GIVE RH-11 INITIALIZE 
8917 :SETUP UNIT NUMBER 
8918 
8919 


8920 031040 005037 031146 
8921 031044 005037 031164 
8922 031050 005037 031174 


8924 031054 012737 000023 001200 


8928 031062 004737 033374 


8930 031066 104401 057465 
8931 031072 000000 


8933 031074 013777 004506 151064 


8941 031102 013746 002526 
031106 052716 000101 


8944 031112 012677 151062 


:*THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER 0 
CLR a#i$+i2 START WITH SECTOR/TRACK = 0 
CLR a#2$+10 START WITH DATA = 0 
CLR a#3$+6 :START WITH 0 FOR COMMAND 


MOV #19. ,a#STMP1 ;19 TRACKS TO BE WRITTEN 

:*THIS GETS THE HEADS TO CYLINDER 0 

JSR PC,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
;AND THAT ALL STATUS BITS ARE = 0 

TYPE ,CPHALT ;CANNOT CONTINUE TESTING IF NOT 

HALT STOP TEST 


MOV O#RPGVEC ,ARPVEC tot RPO4 VECTOR ADDRESS 
:10 "TIME 1" IF P=CLOCK IS PRESENT . 
;OR TO 'TIME2' IF P-CLOCK IS NOT THERE 
:'TIME' WILL ONLY SAVE 
;CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q@#RECALI,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO!IE, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)*,@RHCS1 GO WITH 


SEQ Sali 
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104413 
060650 


8957 031130 004737 


8964 031134 


8966 031134 004037 
8967 031140 002370 
8968 031142 000004 
8969 031144 010000 
8970 031146 000000 
8971 031150 000000 
8972 031152 000000 


8975 031154 
8977 031154 004037 
8978 031160 002400 


8979 031162 000400 
8980 031164 000000 


8984 031166 

8986 031166 004037 

8987 031172 000000 

8988 031174 000 
000 

8990 031176 177374 


8992 031200 002370 


8995 031202 000000 
8996 031204 010000 
8997 
8998 


8999 031206 002344 


033314 


033140 


033164 


035276 
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2$: 


3$: 
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HEAD SELECTION TEST ERR & TRE SEQ 0185 


36 IN RHCS1 FOR RECALIBRATE 
;WITH INTERRUPT ENABLED 


































;WAIT FOR DRY BIT TO SET 


RHDS1 ;WAIT FOR RHDS1 REGISTER 

DRY ;WAIT FOR DRY BIT IN RHDS1 REGISTER 
25000. ;ALLOW 250000 aod ee SECONDS 

25000. ;DRY MUST SET BET 


WEEN 
:00 AND 500000 MICRO SECONDS 


JSR PC ,a#CLDISK ;SET R1I-RHCS1, R2-RHCS2 
3R3-RHDS1, R4-RHERI 
GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 


s*FILL WRITE FROM BUFFER WITH HEADER 


JSR RO,a#F LHEAD ;SAVE HEADER DATA IN WRFROM 
WRF ROM ;LOCATION WHERE SAVED 

4 ;NUMBER OF WORDS SAVED 
10000 ; ;FIRST DATA WORD 

<0*400>!0 ; ;SECOND DATA WORD 

0 ; THIRD DATA WORD 

0 ;FOURTH DATA WORD 


S*FILL WRITE FROM BUFFER WITH DATA 


JSR RO,a#CLAREA sCLEAR 256. WORDS, FROM WRFROM+10 

WRF ROM+10 sSTARTING FROM WRFROM+10 

256. 3256. WORDS 

<0.*2000>!<0.*40>!0 sFILL WITH <0.*2000>!<0.*40>!0 


;*THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 


JSR RO,a#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 CYLINDER 0 
-BYTE 0 ;SECTOR 0 
-BYTE 0 ; TRACK 0 
-256.-4 ;WORD COUNT (DATA) = 256. + 
74 HEADER WORDS 
WRFROM ;BUS ADDRESS 


STARTING ADDRESS OF DATA 
;BUFFER = WRFROM 
0 ;00 NOT INHIBIT BUS —— INCREMENT 
FMT22 316 BITS PER WORD FORM 
:00 NOT INHIBIT ECC CORRECTION 
:D0 NOT INHIBIT HEADER COMPARE 
WRIFOR ;GET READY TO DO A WRIFOR 
sWRITE HEADER AND DATA WITH 62 IN RHCS1 


et 
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031210 


031214 
031220 


031222 


031230 
031234 


031240 


031244 
031246 
031250 
031252 
031254 


031256 
031262 


031300 
031302 


31304 
31312 


28-MAR- 


004737 


104401 
000000 


013777 


013746 
052716 


012677 


104413 
002200 
000200 
003162 
001572 


004737 
032737 


001401 
104066 


062737 
062737 


9 08:52 


033374 
057465 


004506 


002344 
000101 


150734 


035236 
040000 
040000 


000400 
000040 


MACY11 30A(1052) 
136 


150736 


002304 


002262 


9$: 


E 15 
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HEAD SELECTION TEST ERR & TRE SEQ 0186 
JSR PC ,a#CHECKT ;CHECKS DVA,RDY,MOL,DPR,DRY AND VV = 1 
;AND THAT ALL STATUS BITS ARE = 0 
TYPE -CPHALT ;CANNOT CONTINUE TESTING IF NOT 
HALT ;STOP TEST 


MOV Q#RP4VEC,ARPVEC ;SET RPO4 VECTOR ADDRESS 
:10 "TIME1’ IF P=CLOCK IS PRESENT 
;OR TO 'TIME2' IF P=CLOCK IS NOT — 
:'TIME' WILL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV Q#WRIFOR,-(SP) ;GET READY 10 MOVE COMMAND 


BIS MGO!IE, (SP) ;GET READY TO SEi GO AND 
ENABLE INTERRUPT 
MOV (SP)+,@RHCS1 ;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 


:*ONE REVOLUTION = 16670 MICRO SEC., ONE SECTOR = 760 
>*MICRO SEC. MAX TIME ALLOWED = ONE “REVOLUTION + HEAD 
s*SWITCH + 2 SECTORS, MIN TIME ALLOWED = SECTOR (FIRST CASE) 
:*1F THERE IS A FAILURE HERE HALT PROGRAM AFTER ERROR WITH 
>*SWITCH 15 AND SEE CURRENT CYLINDER REGISTER TO DETERMINE 
;tWHAT CYLINDER 1S FAILING 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 ;WAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
1650. ;ALLOW 16500 MICRO SECONDS 

890. ;RDY MUST SET BETWEEN 


;7600 AND 25400 MICRO SECONDS 


>*NOW SECTOR O OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT 
;*ERROR BIT TO BE SURE NO ERRORS HAPPENED 


> *SAVE REGISTERS IN SAVE TABLE 
JSR PC ,@#PUTREG 


BIT #WERR,a#DS1 ANY DISK ERRORS 
BNE 9$ ;BRANCH IF YES 
BIT #TRE,a#CS1 ;ANY RH ERRORS 
BEQ 4$ ;BRANCH IF NO 
ERROR 66 ;SOME ERRORS OCCURRED 
;WHILE DOING WRITE HEADER 
AND DATA : 


*THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING 


ADD #400,a#1$+12 ;NEXT TRACK FOR HEADER 
ADD #40 ,a#2$+10 ;NEXT TRACK FOR DATA 


F 15 
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er 031320 062737 000400 031174 ADD #400 ,a#3$+6 NEXT TRACK FOR COMMAND 

9059 031326 005337 001200 DEC aaSTMP) sCOUNT 19 TRACKS 

aoe 031332 001300 BNE i$ 

9062 :*THE FOLLOWING CLEARS SETS UP FOR READ HEADER AND DATA 

9063 031334 005037 031414 CLR aasst3+i2 START WITH SECTOR/TRACK = 0 

9064 031340 005037 031432 CLR a#SS144+10 START WITH DATA = 0 

sot 031344 005037 031442 CLR a#SS15+6 “START WITH 0 FOR COMMAND 

9067 

9068 031350 004737 033314 JSR PC, ,a#CLDISK :SET R1-RHCS1, R2-RHCS2 

9069 sR3-RHDS1, R4-RHERI 

9070 :GIVE RH=-11 INITIALIZE 

4A : SETUP UNIT NUMBER 

9073 7*SET UP FOR READ HEADER AND DATA 

sore 031354 012737 000023 001200 sST1: MOV #19. ,aaSTMP1 :19 TRACKS TO BE READ . 

9076 :*FILL READ INTO BUFFER WITH ALL ONES 

core 031362 SST2: 

9079 031362 004037 033164 JSR RO, @#CLAREA :CLEAR 260. WORDS, FROM REINTO 

9080 031366 003434 REINTO STARTING FROM REINTO 

9081 031370 000404 260. 3260. WORDS 

oOSt 031372 177777 -1 FILL WITH -1 

se) 031374 013737 031362 001110 MOV a#SST2,a#$LPERR ;SET LOOP POINT 

9086 :*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 

Heed 031402 SS13: 

9089 031402 004037 033140 JSR RO, a#FLHEAD ;SAVE HEADER DATA IN WRFROM 

9090 031406 002370 WRF ROM sLOCATION WHERE SAVED 

9091 031410 000004 4 sNUMBER OF WORDS SAVED 

9092 031412 010000 10000 sFIRST DATA WORD 

9093 031414 000000 0 sSECOND DATA WORD 

9094 031416 000000 0 s THIRD DATA WORD | 

4 031420 000000 0 sFOURTH DATA WORD 

6 


9098 031422 SST4: 


9100 031422 004037 033164 JSR RO,@#CLAREA CLEAR 256. WORDS, FROM WRFROM+<4*#2> 

9101 031426 002400 WRFROM+<4#2> STARTING FROM WRFROM+<4*2> 

9102 031430 000400 256. 3256. WORDS 

9103 031432 000000 <0.*2000>!<0*40>!0 sFILL WITH <0.*2000>!<0#40>:0 


9106 :*FILL COMMAND FOR READ HEADER AND DATA 
9107 031434 $S15: 


8 

9 031434 004037 035276 JSR RO, @#RUN 7SETUP TO RUN FOR DATA COMMAND 
0 031440 000000 0 CYLINDER 0 

; 031442 000 BYTE C SECTOR 0 


9097 st*FILL WRITE FROM BUFFER WITH EXPECTED DATA 
031443 000 BYTE 0 sTRACK 0 | 
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177374 
003434 


031444 
031446 


031450 
031452 


000000 
014000 


MmNnN—— 
Nm—O OM 


031454 002350 
031456 


031462 
031466 


9131 031470 


004737 


104401 
000000 


013777 


033374 
057465 


004506 150470 


031476 
031502 


031506 


013746 
052716 


012677 


002350 
00010i 


150466 


104413 


001572 


031524 


031530 
9161 031536 
031540 
031546 


031550 


004737 
032737 


035236 
040000 002304 


040000 002262 
001401 


104066 10$: 


25-MAY-79 


-256.°4 
REINTO 


0 
ECI!FMT22 


REFOR 


JSR 


TYPE 
HALT 


MOV 


MOV 
BIS 


PC ,@#CHECKT 
,CPHALT 


@ARPSVEC,ARPVEC 


@#REFOR,-(SP) 
#GO!IE, (SP) 


(SP)+,@RHCS1 


6 15 
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HEAD SELECTION TEST ERR & TRE 


;WORD COUNT (DATA) = 256. + 
34 HEADER WORDS 

;BUS ADDRESS 

; STARTING ADDRESS OF DATA 
;BUFFER = REINTO 


;D0 NOT INHIBIT BUS ADDRESS oh idee 
316 BITS PER WORD FORMAT 

; INHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 


:GET READY TO DO A REFOR 
;READ HEADER AND DATA WITH 72 IN RHCS1 


CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BI1S ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 

;STOP TEST 


;SET RPO4 VECTOR ADDRESS 

310 ‘TIME1" IF P-CLOCK IS PRESENT 

:OR TO ‘TIME2" IF P-CLOCK IS NOT THERE 
;"TIME' WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

:AND LOOK AHEAD REGISTERS 


;GET READY TO MOVE COMMAND 
;GET READY TO SET GO AND 
s;ENABLE INTERRUPT 

GO WITH 


372 IN RHCS1 FOR READ DATA 


;WITH INTERRUPT ENABLED 


;WAIT FOR RDY BIT TO SET 

;WAIT FOR RHCS1 REGISTER 

;WAIT FOR RDY BIT IN RHCS1 REGISTER 
;ALLOW 16500 MICRO SECONDS 

s:RDY MUST SET BETWEEN 

;7600 AND 25400 MICRG SECONDS 


>*NOW SECTOR 9 Of ONE TRACK HAS BEEN READ CHECK COMPOSIT 
> *ERROR BIT TO BE SURE NO ERROR HAPPENED. 


j PC ,a#PUTREG 
BIT WERR,@#DS1 
BNE 10$ 
BIT #TRE,awCS1 
BEQ 11$ 
ERROR 66 


— REGISTERS IN SAVE TABLE 
$ 


sANY DISK ERRORS 
sBRANCH IF YES 
; ANY RH ERRORS 
;BRANCH IF NO 


SOME ERRORS OCCURRED 


;WHILE DOING READ 
;HEADER AND DATA 


ey 





CZRJJDO, ™ ictal he ce CTRLR2 MACY11 oe 


CZRJID.P 


031552 
031552 


031574 
031602 
031610 


031616 
031622 


031624 


031626 


28-MAR-79 


004037 
0 


031574 


104067 
000207 


062737 
062737 
062737 


005337 
001001 


000402 
000137 


08:52 


035342 


000400 
000040 
000400 


001200 


031362 


11$: 


128: 


13$: 


5$: 


25-MAY-79 


;*NOW THE READ DATA WILL BE COMPARED DATA IN EACH SECTOR 
>*1S UNIQUE If PROGRAM 1S HALTED ON ERROR THEN LOOK AT 
;*RHDST TO GET WHAT TRACK IS IN ERROR. LOOKING AT THE DATA 
;*BITS NO 4,5,6,7,8 IN GOOD DATA ALSO GIVES TRACK NUMBER 


H 15 
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HEAD SELECTION TEST ERR & TRE 


>*1N GOOD DATA ALSO GIVES TRACK NUMBER 


ERROR 


RTS 


>*NOW INCREMENT TO READ 


RO, a#COMPAR 


67 
PC 


#400 ,a#SST3+12 
#40 ,a#SST4+10 
#400,a#SST5+6 


aa$TMP 1 
5$ 


18137 
aa#Sste 


;COMPARE TWO BLOCKS OF MEMORY 
;GOOD DATA STARTS FROM WRFROM 
7 TEST DATA STARTS FROM REINTO 
3260., WORDS TO BE COMPARED 

;RETURN TO 12% ON ERROR 
;RETURN 70 13% ON NO ERROR 


BITS 4,5,6,7,8 
READ HEADER AND DATA 


7; ERRO 

: HEAD SELECTION ERROR 
;DATA READ GIVES NATURE 
;OF ERROR 

sEXCEPT FOR THE 

;FOUR HEADER WORDS 

s THE BITS 4,5,6,7,8 
;GIVE THE TRACK NUMBER 


NEXT TRACK 

;NEXT TRACK FOR HEADER 
;NEXT TRACK FOR DATA 
sNEXT TRACK FOR COMMAND 


>COUNT 19 TRACKS 


;TO NEXT TEST 
; JUMP BACK 





SEQ 0189 


} 
Rincieianseneitioedin 


—— 
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CZRJJD.P11 


031632 
031634 
031640 


031646 


031652 


031656 
031662 


031664 
031672 
031676 


031702 


031710 
031714 


031720 


28-MAR-79 


000004 
012706 
012737 


004737 


004737 


104401 
000000 


012737 
005037 
005037 


013777 


013746 
052716 


012677 


104413 
002222 
000200 


08:52 


001000 
000037 


033314 


033374 
057465 


010000 
032016 
032024 


004506 


002326 
000101 


150254 


004504 


031776 


150256 


ee 


on 


HEAD SELECTION TEST ERR & TRE SEQ 0190 


sy eeteerererererererrererrerereeeeerenseneneeeerenaeeranerereneeee 


s*TEST 37 DIFFERENCE LINES 


A WRITE HEADER AND DATA WILL BE DONE ON ALL CYLINDERS 
UP TO 256./512. ON SECTOR ZERO, TRACK ZERO. THE DATA WILL 
BE THE CYLINDER NUMBER 


THEN A RECAL:BRATE AND READ HEADER AND DATA WILL BE DONE 
ON CYLINDERS 0,1,2,4,8,16,52,64,128,256 & 512. 


DATA WILL BE CHECKED. 


ON AN ERROR, LOOPING WILL BE DONE ON THE 
READ ONLY 


Pp eteereerererererererereserererereizeererereeatenereneraererarere 
TST37: SCOPE 


e. 


MOV WSTACK,SP RESET STACK 
MOV #37,a#TSTNE SAVE TEST NUMBER 


JSR PC ,a#CLDISK SET R1I-RHCS1, R2-RHCS2 
jR3-RHDS1, R4&-RHERI 
:GIVE RH-11 INITIALIZE 
; SETUP UNIT NUMBER 
JSR PC ,@@CHECKT CHECKS DVA,RDY.MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
TYPE CPHALT ;CANNOT CONTINUE TESTING IF NOT 
HALT ;STOP TEST 


eiireee a INITIALIZE TEST FROM CYLINDER 0, TRACK O, 
3; *SEC 

MOV wo oe 2 a#i$+10 oo es HEADER DATA 

CLR a2$+10 ;DATA 

CLR a#5$+4 ;CYLINDER COMMAND RHCA 


:*THIS 1S TO GET THE HEADS TO CYLINDER ZERO 
MOV O#RP4VEC,ARPVEC ;SET RPOS VECTOR ADDRESS 
7TO *TIME1® IF P-CLOCK 1S PRESEN? 
;OR TO "TIME2' IF P=CLOCK IS NOT THERE 
;'TIME* WILL ONLY SAVE 
;CUPRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 


MOV OA#RECALI,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO!I1E, (SP) ;GET READY TO SET GO AND 
ENABLE INTERRUPT 

MOV (SP)+*,@RHCS1 GO WITH 
76 IN RHCS1 FOR RECALIBRATE 
;WITH INTERRUPT ENABLED 


wAT sWwAILT FOR DRY BIT TO SET 
RHDS1 sWAILT FOR RHDS1 REGISTER 
sWAIT FO 


DRY R DRY BIT IN RHDS1 REGISTER 


J.15 
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CZRJJD.P11 


031732 
031734 


031736 
031742 


031744 
031752 


031754 
031762 


031762 


031766 
031766 


032004 


032006 


032006 
032012 
032014 
032016 


032020 


032020 
032024 
032026 
032027 
032030 


032032 


060650 
060650 


005737 


001404 


012737 
000403 


012737 


004737 


004037 


002370 | 


000000 


004037 
002400 
000400 
000000 


004037 
000000 
000 
000 
177374 


002370 


004656 


001001 


000401 


033314 


033140 


033164 


035276 


001200 


001200 


;00 AND 500000 MICRO SECONDS 


>*THE DRIVE TYPE 1S CHECKED AND THE APPROPRIATE MAX. 
> *CYLINDER DIFFERENCE IS SET UP 


sp erererrererererereereeerererereeeeeeeeereeetereeeeeererereneees 


DIFFERENCE LINES SEQ 0191 
25000. ; ALLOW 250000 MICRO SECONDS 
25000. ;DRY MUST SET BETWEEN 
MOV #513. ,aa#STMP1 3513 CYLINDERS 
BR 15$ ; CONTINUE 
14%: MOV #257. ,aaSTMP1 3257 CYLINDERS 
15$: sCONTINUE WITH TEST 
JSR PC ,aaCLDISK sSET R1-RHCS1, R2-RHCS2 
sR3-RHDS1, R4-RHERI 
:GIVE RH-11 INITIALIZE 
;SETUP UNIT NUMBER 
6 stFILL WRITE FROM BUFFER WITH HEADER 
JSR RO,a#FLHEAD sSAVE HEADER DATA IN WRFROM 
WRFROM ;LOCATION WHERE SAVED 
4 ;NUMBER OF WORDS SAVED 
10000 sFIRST DATA WORD 
0 :SECOND DATA WORD 
0 s THIRD DATA WORD 
0 sFOURTH DATA WORD 
> s*FILL WRITE FROM BUFFER WITH DATA 
JSR RO, @#CLAREA sCLEAR 256. WORDS, FROM WRFROM+10 
WRF ROM+ 10 sSTARTING FROM WRFROM+10 
256. 3256. WORDS 
srlet WITH O 
; s*THE WRITE HEADER AND DATA COMMAND WILL BE LOADED 
$: 
JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
0 sCYLINDER 0 
BYTE 0 sSECTOR 0 
BYTE 0 s TRACK 0 
-256.°4 sWORD COUNT (DATA) = 256. + 
34 HEADER WORDS 
WRF ROM BUS ADDRESS 


TST Q@#RPO6 ; TEST FOR RPO6 DRIVE 
BEQ 14% ; TREAT UNIT AS AN RPOS 
; TREAT AS AN RPO6 


peeeereeeereneeerrertrererererettentnereteeateneeenionegeeeareeene 


R 
sSTARTING ADDRESS OF DATA 


Oamn 
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9321 032034 000000 
9322 032036 010000 


9325 032040 002344 


9329 032042 004737 033574 


9331 032046 104401 057465 
9332 032052 000000 


9334 032054 0135777 004506 150104 


9342 032062 013746 002344 
9343 052066 052716 000101 


9345 032072 012677 150102 


9355 032076 104413 
9356 032100 002200 
9357 032102 000200 
9358 032104 002354 
9359 032106 002354 


9365 032110 005237 031776 
9366 032114 005237 032016 
9367 032120 005237 032024 
9368 032124 005337 001200 
9369 032130 001316 


K 15 ae Teer 
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25-MAY-79 

DIFFERENCE LINES SEQ 0192 
;BUFFER = WRFROM 

0 ;D0 NOT INHIBIT BUS a INCREMENT 

FMT22 316 BITS PER WORD FORMAT 
:D0 NOT INHIBIT ECC CORRECTION 
;00 NOT INHIBIT eaer COMPARE 

WRIFOR ;GET READY TO DO A W 


FOR 
;WRITE HEADER AND DATA WiTH we) IN RHCS1 


JSR PC ,@#CHECKT 
TYPE ,CPHALT 


;CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
;AND THAT ALL STATUS BITS ARE = 0 
;CANNOT CONTINUE TESTING IF NOT 


HALT ;STOP TEST 

MOV OARP4VEC ,ARPVEC +4 RPO4 VECTOR ADDRESS 
: O 'TIMET* IF P-CLOCK IS PRESENT 
OR TO ‘TIME2" IF P-CLOCK IS NOT THERE 
:*TIME’ WILL ONLY SAVE 
; CURRENT CYLINDER ADDRESS 
;AND LOOK AHEAD REGISTERS 

MOV O#WRIFOR,-(SP) ;GET READY TO MOVE COMMAND 

BIS #GO'IE, (SP) ;GET READY TO SET GO AND 
;ENABLE INTERRUPT 

MOV (SP)+,@RHCS1 ;GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
;WITH INTERRUPT ENABLED 


;*ONE REVOLUTION = 16670 MICRO SECONDS, ONE SECTOR = 760 
>*MICRO SECONDS, ONE SEEK = 7000 MICRO SECONDS. 

;*MAX TIME = 1 REVOLUTION + 1 SEEK + 2 SECTORS 

;*MIN TIME = 1 SECTOR 


WAT ;WAIT FOR RDY BIT TO SET 

RHCS1 sWAIT FOR RHCS1 REGISTER 

RDY WAIT FOR RDY BIT IN RHCS1 REGISTER 
1260. ;ALLOW 12600 MICRO SECONDS 

1260. ;RDY MUST SET BETWEE 


N 
300 AND 25200 MICRO SECONDS 


>*NOW ONE SECTOR WRITE 1S COMPLETE. CHANGES WILL BE MADE 
:*FOR THE NEXT SECTOR, THEN THE ABOVE WILL BE REPEATED 
s*UNTIL CYLINDER 256. 1512. 1S REACHED 

INC a#1$+10 2 tae HEADER DATA 


INC a#2$+10 :DATA 
INC a#3$+4 ;CYLINDER COMMAND (RHCA) 
DEC ae$TMPl COUNT DOWN FOR 256./512. CYLINDERS 


BNE 1$ :DO NEXT WRITE IF 256./512. NOT DONE 


s*NOW ALL 256./512. CYLINDERS HAVE CYLINDER NUMBER WRITTEN 
>t*AS DATA ON SECTOR 0, TRACK 0. NOW A RECALIBRATE, FOLLOWED 
:*BY READ sae: AND DATA, THEN A CHECK WILL BE DONE ON 
s*CYLINDER 0,1,2,4,8,16, 32,64,128,256,512, AND 0 


a 
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9376 032132 013737 032162 001110 
9377 032140 005037 001200 


25-MAY-79 


L 15 
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DIFFERENCE LINES 


MOV O#4$ ,AMSLPERR 
CLR aaSTMP) 


194 


;LOOP ON ERROR 
;CYLINDER COUNTER 


193 | 


SEQ 0 


nn 
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CZRJJD.P11 28-MAR-79 08:52 137 Dif FERENCE LINES SEQ 0194 
9378 
9379 stINITIALIZE, RECALIBRATE, AND READ CYLINDERS 
9380 sp ertereererererererererererreererererereeeerereteeeeeetererereres 
9381 
9382 ; >*SETUP FOR CYLINDER 0 
9383 032144 012737 )10000 032244 MOV #10000,085$+10 ;CYL'NOER HEADER (DATA) 
9384 032152 005037 132264 CLR a#6$+10 ;DATA 
9385 032156 005037 032272 CLR aa7$+4 :CYLINDER COMMAND (RHCA) 
oer 032162 4$: 
9388 032162 004737 033314 JSR PC ,a@#CLDISK 7SET R1-RHCS1, R2-RHCS2 
9389 jR3-RHDS1, R4-RHERI 
9390 sGIVE RH-11 INITIALIZE 
4 44] ;SETUP UNIT NUMBER 
9393 032166 013777 004506 147772 MOV OARP4VEC ,ARPVEC 4+ My RPO4 VECTOR ADDRESS 
9394 O 'TIME1" IF P-CLOCK IS PRESENT 
9395 son TO ‘TIME2’ IF P-CLOCK 1S NOT THERE 
9396 > *TIME® WILL ONLY SAVE 
9397 s;CURRENT CYLINDER ADDRESS 
9398 , sAND LOOK AHEAD REGISTERS 
9399 
9400 
9401 032174 013746 002326 MOV QMWRECALI,-(SP) ;GET READY TO MOVE COMMAND 
9402 032200 052716 000101 BIS #GO'IE, (SP) sGET READY TO SET GO AND 
9403 sENABLE INTERRUPT 
9404 032204 012677 147770 MOV (SP)+,@RHCS1 3GO WiTH 
9405 36 IN RHCS1 FOR RECALIBRATE 
9406 sWITH INTERRUPT ENABLED 
9407 
9408 
9409 032210 104413 WAT ;WAIT FOR DRY BIT TO SET 
9410 032212 002222 RHDS1 sWAIT FOR RHDS1 REGISTER 
9411 032214 000200 DRY sWAIT FOR DRY BIT IN RHDS1 REGISTER 
9412 032216 060650 25000. s ALLOW 250000 MICRO SECONDS 
9413 032220 060650 25000. ;DRY MUST SET BETWEEN 
et ;0C AND 500000 MICRO SECONDS 
4 
ot 7*CLEAR READ INTO BUFFER WITH ALL ONES 
4 é 
9418 032222 004037 033164 JSR RO,@#CLAREA sCLEAR 260. WORDS, FROM REINTO 
9419 032226 003434 REINTO sSTARTING FROM REINTO 
9420 032230 000404 260. 3260. WORDS 
9421 032232 177777 -1 sFILL WITH =1 
9422 
9423 
9424 s*FILL WRITE FROM BUFFER WITH EXPECTED HEADER 
og 032234 5$: 
9427 032234 004037 033140 JSR RO,a#FLHEAD sSAVE HEADER DATA IN WRFROM 
9428 032240 002370 WRF ROM sLOCATION WHERE SAVED 
9429 032242 000004 4 sNUMBER OF WORDS SAVED 
9430 032244 010000 10000 sFIRST DATA WORD 
9431 032246 000000 0 ;SECOND DATA WORD 
9432 032250 000000 0 s THIRD DATA WORD 
9433 032252 000000 0 ;FOURTH DATA WORD 


a 


N 15 
CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACYI1 i ae 25-MAY-79 10:48 PAGE 196 


2344 104413 WAT s;WAIT FOR RDY BIT TO SET 
2346 002200 RHCS1 sWAIT FOR RHCS! REGISTER 


Oo 
= 
@ 
ie) 
oo 
ww 


CZRJJD.P11 28-MAR-79 08:52 137 DIFFERENCE LINES SEQ 0195 
ot 032254 6$: 
9436 032254 004037 033164 JSR RO, @#CLAREA :CLEAR 256. WORDS, FROM wRFROM+10 
9437 032260 002400 WRFROM+10 ;STARTING FROM WRFROM+10 
9438 032262 000400 256. 3256. WORDS 
9439 032264 000000 0 FILL WITH O 
9440 
9441 
9442 ;*FILL READ HEADER AND DATA COMMAND 
9005 032266 7$: 
9445 032266 004037 035276 JSR RO, @#RUN ;SETUP TO RUN FOR DATA COMMAND 
9446 032272 000000 0 s CYLINDER 0 
9447 032274 000 -BYTE 0 : SECTOR 0 
9448 032275 000 -BYTE 0 TRACK 0 
9449 032276 177374 -256.-4 ;WORD COUNT (DATA) = 256. + 
9450 74 HEADER WORDS 
9451 032300 003434 REINTO :BUS ADDRESS 
9452 ;STARTING ADDRESS OF DATA 
9453 :BUFFER = REINTO 
9454 032302 000000 0 ;D0 NOT INHIBIT BUS ADDRESS INCREMENT 
9455 032304 014000 ECL! FMT22 :16 BITS PER WORD FORMAT 
9456 ; INHIBIT ECC CORRECTION 
9457 :DO NOT INHIBIT HEADER COMPARE 
9458 032306 002350 REFOR :GET READY TO DO A REFOR 
9459 :READ HEADER AND DATA WITH 72 IN RHCS1 
sto 
4 ; 
9462 032310 004737 033374 JSR PC ,a#CHECKT :CHECKS DVA,RDY,MOL,DPR,DRY AND vv = 1 
9463 :AND THAT ALL STATUS BITS ARE = 0 
9464 032314 104401 057465 TYPE =, CPHALT ;CANNOT CONTINUE TESTING IF NOT 
ore 032320 000000 HALT STOP TEST 
466 
9467 032322 013777 004506 147636 MOV aMRPGVEC ,ARPVEC : $61 RPO4 VECTOR ADDRESS 
9468 O "TIME1' IF P=CLOCK IS PRESENT 
9469 ‘OR TO 'TIME2' IF P=CLOCK IS NOT THERE 
9470 :'TIME' WILL ONLY SAVE 
9471 ;CURRENT CYLINDER ADDRESS 
9472 ;AND LOOK AHEAD REGISTERS 
4 
9474 :*ONE SECTOR = 760 MICRO SECONDS, ONE REVOLUTION = 
9475 [#16670 MICRO SECONDS, MAX SEEK = 52000 MICRO SECONDS 
9476 ;*MAX TIME = ONE REV # 1 SEEK + 1 SECTOR 
9477 :*MIN TIME = 1 SECTOR 
9478 
9479 
9480 032330 013746 002350 MOV QPREFOR,-(SP) GET READY TO MOVE COMMAND | 
9481 032334 052716 000101 BIS #GO'1E, (SP) :GET READY TO SET GO AND 
9482 ;ENABLE INTERRUPT 
9483 032340 012677 147634 MOV (SP)+,a@RHCS1 360 WITH | 
9484 :72 IN RHCS1 FOR READ DATA 
9485 ;wWITH INTERRUPT ENABLED | 
9486 
9487 | 
| 
| 
— 


“FA wen Pr 


ce ee ee ee ee ee Ee 


y — ee ee oe 
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032350 
032352 
032354 


032356 
032362 
032364 
032366 
032370 
032372 


032374 
032376 


032400 


032412 


032414 
032420 


032422 


032440 
032440 


000200 
006620 
006620 


004037 
002370 
003434 
000404 
032374 
032400 


104070 
000207 


005737 
001003 
005237 
000416 


005737 
001404 


022737 
000403 
022737 


035342 


001200 
001200 


004636 


001000 
000400 


001200 


032162 


004636 


001200 


001200 


001200 
032264 


032272 


DIFFERENCE LINES 


RDY ;WAIT FOR_RDY BIT IN RHCS1 REGISTER 
3472. ;ALLOW 34720 MICRO SECONDS 
3472. ;RDY MUST SET BETWEEN 


300 AND 69440 MICRO SECONDS 
;*CHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED 
:*(DATA ERRORS MAY IMPLY "IMPLIED SEEK" ERRORS) 


JSR RO, a#COMPAR ;COMPARE TWO BLOCKS OF MEMORY 
WRF ROM ;GOOD DATA STARTS FROM WRF ROM 
REINTO TEST DATA STARTS FROM REINTO 
260. :260., WORDS TO BE COMPARED 
8$ ;RETURN TO 8$ ON ERROR 
9$ RETURN TO 9$ ON NO ERROR 

8$: ERROR 70 ;READ HEADER AND DATA ERROR 


- RTS PC ;DATA GIVES EXPECTED CYLINDER 
;*NOW ONE CYLINDER HAS BEEN CHECKED. CHANGES WILL BE MADE 


3*TO READ THE NEXT CYLINDER AND THE ABOVE SECTOR READ WILL BE 


; *REPEATED 

9$: TST aaSTMP 1 :1S8 1T ZERO ? 

: BNE 10$ ;BRANCH IF NOT ZERO 
INC. aaSTMP1 ;ADD ONE IF = 0 
BR 11$ ;PUT ONE IN CYLINDER 


ppeeteeeteeeereeteeeeeeteteee terre etree eee Kee KKK 


10$: TST @#RPO6 ; TEST FOR RPO6 DRIVE 
BEQ 16% ; TREAT UNIT AS AN RPO4 
; TREAT AS AN RPO6 


Spe eeeeeeeeeee eee eee eee eee Ae eee eee EAA KAKA KAKA KKK A AAA AAS 


CMP (aioe i1$ ks PASSED 512 CYLINDERS YET ? 


BR 1 : CONTINUE 
16$: CMP #256. ,aaSTMP1 ;1S 11 PASSED 256 CYLINDERS YET ? 
17$: ; CONTINUE 

BLOS 12$ YES, SO GO TO ZERO 


ADD Q#STMP1,a#STMP1 ;DOUBLE THE CYLINDER 
11$: MOV Q#STMP1,a#6$+10 ;MAKE CYLINDER ADDRESS THE DATA 
MOV a#$TMP1,-(SP) :GET CYLINDER NUMBER 


BIS WEMT22, (SP) ; INCLUDE FORMAT BIT 

MOV (SP)+,a#5$+10 :HEADER DATA (CYLINDER) 
MOV aWSTMP1,a#7%+4 ;CYLINDER COMMAND (RHCA) 
JMP av4s :RETURN TO RECALIBRATE 


PUT ETITIIT ITIL TELL ATLTLLLTT titi ci iii tice ii 
12$: TST a#RPO6 ;TEST FOR RPO6 DRIVE 
BEQ 18% ; TREAT UNIT AS AN RPO4 
; TREAT AS AN RP06 


Lp eeeeenererereeereeeeeereceteteerteetereteteteerenererereerenens 


SEQ 0196 
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022737 
001421 


001414 


063737 


0 
000137 


08:52 


002000 


001000 


001200 


032162 
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137 


001200 


001200 


001200 
032244 





188: 
19$: 


138: 


25-MAY-79 


DIFFERENCE LINES 


CMP 
BEQ 


#1024. ,as#STMP1 
13% 

19% 
#512. ,aeSTMP1 
138 


Q#STMP1 ,AeSTMP 1 
#10000 ,a#5$+10 
a#6$+10 

a#7$+4 

ar4s 
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; CONTINUE 


3512 DONE YET ? 
:0UT 


SOUT 
; CONTINUE 


;DOUBLE THE CYLINDER 
2 eee HEADER DATA 


“CYLINDER COMMAND (RHCA) 
“RETURN TO THE RECALIBRATE 


END OF TEST 


SEQ 0197 


| 
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032564 


032606 
032662 


032674 
032702 


032720 
032724 


032726 
032732 
032736 
032742 
032744 
032750 


032754 


033012 


28-MAR-79 


000004 
012737 
012737 
104401 


000425 


013746 


000402 


013746" 


001413 


005237 


104401 
000137 


012737 


000137 


08:52 


900001 
000000 
032610 


004616 
032676 


001112 


001112 
001102 
004626 


001100 
033123 
001100 


033120 
010142 


177777 
004620 


004616 
004576 
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; ;ereerereertereereeerererereeereee eee AeeteerKeeAeeKeAeee ee 
5 ;teeerererererereeereeeereeeeeeeeerereeetAeetenetererarerereeees 


SEQ 0198 


s*TEST 40 
THIS IS THE END OF TEST FOR ONE DRIVE 


IF THERE ARE MORE DRIVES, 


END OF DRIVE 


THEN THE PROGRAM 


JUMPS TO TEST 5 FOR NEXT DRIVE TEST 
END OF PASS 1S REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


1140: SCOPE 
001212 MOV #1,$TIMES 3;D0 1 ITERATION 
177776 MOV 0,PS sREINSTATE PS TO 0 
TYPE 038 +s TYPE ASCIZ STRING 
R 3GET OVER THE ASCIZ < 
Fg ASCIZ oi5><129/T0TM. ERRORS ON THIS PASS ON UNIT NO./ 
643: 
+ Q#UNIT,-(SP) :GET READY TO TYPE UNIT NUMBER 
| 
TYPE 67% si; TYPE ASCIZ STRING 
R 66% 3;GET OVER THE ASCI1Z 
a ASCIZ / = 
a O#SERTTIL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 
Y 
CLR a#SERTIL s;CLEAR TOTAL NUMBER OF ERRORS 
CLR aaSTSTNM sCLEAR TEST NUMBER 
TST a#SELECT sSTARTING FROM 200 ? 
BEQ 3$ sTEST NEXT DRIVE IF SO 
sCONTINUE TESTING THIS ONE IF NOT 
INC aa#$PASS : INCREASE PASS COUNT 
TYPE » SENDMG ; TYPE END PASS # 
, MOV a#SPASS,-(SP) sGET PASS NO. 
TYPDS ;TYPE IT OUT 
TYPE ,» SENULL 
JMP aavTST4 s JUMP TEST 4 renner ----- wore ccoe=- > 
041170 38: MOV #-1,a#PRITEM ;CLEAR PREVIOUS ITEM NUMBER 
DEC a#NOUNITS :NO. OF UNITS PRESENT DECREMENTED 
BEQ $EOP ;BRANCH IF ALL DRIVES COMPLETE 
MOV a#UNIT,RO ;UNIT UNDER TEST 
MOV #UNITS,RI >; TABLE 
1$: CMP (R1)+,RO 31S THIS UNIT JUST TESTED ? 
BEQ 2 ;CONTINUE IF YES 
BR 1$ ; INCREMENT IF NO 
2$: MOV (R1) ,a#UNIT sTHIS IS NEXT UNIT 
JMP aaTst4 sTEST THE NEXT DRIVE eeeeeeee-------- > 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25- > ae a 
CZRJJD.P11 28-MAR-79 08:52 140 END OF DRIVE 
9612 
9613 .SBTTL 
9614 ~SBTTL ***SUBROUTINES*** 
9615 .SBTTL 
9616 
9617 
9618 
9619 
ast .SBTTL END OF PASS ROUTINE 
9622 sp ereeeearaerereeeererereetereteterererereeeKeeeeeeeeeekeeeeeerene 
9623 s*INCREMENT THE PASS NUMBER ($PASS) 
9624 s*TYPE “‘END PASS @XXXXX'° (WHERE XXXXX IS A DECIMAL NUMBER) 
9625 ;*1F THERES A MONITOR GO TO IT 
9626 s*]F THERE ISN'T JUMP TO TST1 
9627 
9628 033016 SEOP: 
9629 033016 000004 SCOPE 
9630 033020 005037 001102 CLR STSTNM 3;ZERO THE TEST NUMBER 
9631 033024 005037 001212 CLR STIMES +3 ZERO THE NUMBER OF ITERATIONS 
9632 033030 005237 001100 INC SPASS ; INCREMENT THE PASS NUMBER 
9633 033034 042737 100000 001100 BIC #100000,$PASS >= DON' T ALLOW A NEG. NUMBER 
9634 033042 005327 DEC (PC)+ 3; LOOP? 
9635 033044 000001 SEOPCT: .WORD 1 
9636 033046 003022 BGT $DOAGN 77 YES 
9637 033050 012737 MOV (PC)+,a(PC)+ ;;RESTORE COUNTER 
9638 033052 000001 $ENDCT: .WORD 1 
9639 033054 033044 SEOPCT 
9640 033056 104401 033123 TYPE , SENDMG >; TYPE ‘‘END PASS #"' 
9641 033062 013746 001100 MOV $PASS,-(SP) 7:SAVE $PASS FOR TYPEOUT 
9642 033066 104405 TYPDS 3:G0 TYPE--DECIMAL ASCII WITH SiGN 
9643 033070 104401 033120 TYPE ,» SENULL 3; TYPE A NULL CHARACTER 
9644 033074 013700 000042 $GET42: MOV a#42,R0 ::GET MONITOR ADDRESS 
9645 033100 001405 BEQ $DOAGN :;BRANCH IF NO MONITOR 
9646 033102 000005 RESET s: CLEAR THE WORLD 
9647 033104 004710 SENDAD: JSR PC, (RO) 3:GO TO MONITOR 
9648 033106 000240 NOP 3: SAVE ROOM 
9649 033110 000240 NOP 33 FO 
9650 033112 000240 NOP s;ACT11 
9651 033114 $DOAGN: 
9652 033114 000137 JMP a(PC)+ 3 ;RETURN 
9653 033116 006222 SRINAD: .WORD TST1 
9654 033120 37 377 000 $ENULL: .BYTE -1,-1,0 sNULL CHARACTER STRING 
9655 033123 015 042412 042116 SENDMG: .ASCIZ <15><12>/END PASs #/ 
9656 033130 050040 051501 020123 . 
9657 033136 000043 
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SEQ 0199 


a 
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033162 


lelelelelelelelelejlejlejlojia) 
EAE at EAA 
WANA AAA 

Ss - 

N 

o 
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010146 


012002 


012021 
005302 
001375 
012602 
012601 
000200 


elelelejlejlejejejejojoj a 


25-MAY-79 


END OF PASS ROUTINE 


: Fl 
USED CH 
I$ 


FLHEAD: 


RO,@#FLHEAD 


R1,-(SP) 
R2,-(SP) 
(RO)+,R1 
(RO)+,R2 


;*NOW FILL DATA 
(RO)+,(R1)+ 


R2 
1$ 
(SP)+,R2 
(SP)+,R1 
RO 


F 16 
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MEMORY WITH GIVEN DATA 
LY FOR HEADER INFORMATION 


FILL HEADER 

;LOCATION WHERE SAVED 
;NUMBER OF WORDS 

;DATA REPEATED XN TIMES 
;DATA REPEATED XN TIMES 


:;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

3R1 HAS ADDRESS OF WHERE TO SAVE 
;R2 HAS NUMBER OF WORDS 


;SAVE DATA 

;DECREMENT COUNT 
BRANCH IF INCOMPLETE 
3:POP STACK INTO R2 
;;POP STACK INTO R1 


;THIS CLEARS ANY BLOCK OF MEMORY. 


sFILLING 1T WITH ANY DATA 


;CALL IS 


SR 


o2zne 


RO, @#CLAREA 
; FROM 


“NUMBER CF WORDS 
sDATA 


TO BE FILLED 


;R1 WILL HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
;R2 WILL HAVE NUMBER OF WORDS 
3R3 WILL HAVE DATA 


CLAREA: 


R1,-(SP) 


(RO)+,R3 
R3,(R1)+ 
R2 


1$ 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 


::PUSH R1 ON STACK 
:;PUSH R2 ON STACK 
3;PUSH R3 ON STACK 
>FROM 


: NUMBER 


sDATA 

;MOVE DATA 

; COUNT 

BRANCH IF NOT COMPLETE 
>;POP STACK INTO R3 
>;POP STACK INTO R2 
:;POP STACK INTO R} 


SEQ 0200 


: 
| 
es 
= 
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000200 


002172 
004512 
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END OF PASS ROUTINE 


RTS 


RO ;RETURN TO MAIN PROGRAM 


;THIS 1S A SUBROUTINE TO FILL SAVED REGISTER LOCATION 
WITH GIVEN VALUE 


:CALL IS 


FILLRE: 


JSR 
RHXX 


RO, O#FILLRE 
te > he NAME 


R1,-(SP) :;PUSH R1 ON STACK 

R2,-(SP) >;PUSH R2 ON STACK 

(RO)+,R1 sADDRESS OF ADDRESS OF REGISTER 
(RO)+,R2 DATA 

#MRHWC,R1 ;OFSET 

R2,SAVERE(R1) ;DATA IS MOVED IN 

(SP)+,R2 3;POP STACK INTO R2 

(SP)+,R1 :;POP STACK INTO R1 

RO s;RETURN TO MAIN PROGRAM 


SEQ 0201 
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9750 033244 012077 
9751 033250 012077 
9752 033254 013777 
9754 033262 000200 


146742 
146730 
092334 


9 

9768 033264 012077 146722 
9769 033270 013777 002352 
9770 033276 000200 


146716 


146702 





END OF PASS ROUTINE SEQ 0202 
THIS SUBROUTINE SETS UP FOR SEARCH 


;CALL IS 

; JSR RO, a#SRCH 

; C s CYLINDER 

s OVTE 3% ; SECTOR 

;.BYTE T s TRACK 

SRCH: MOV (RO)+,@RHCA 7SET DESIRED CYLINDER ADDRESS 
MOV (RO)+,@RHDST sSET DESIRED SECTOR/TRACK ADDRESS 
MOV a#SERCH,@RHCS1 GET READY FOR SEARCH 

sWITH 30 IN RHCS1 

RT RO 

sTHIS SUBROUTINE SETS UP FOR SEEK COMMANDS 

;CALL 1S 

; JSR RO, a#SEEKCY 

5 C :CYLINDER 

SEEKCY: MOV (RO)+,@RHCA :SET DESIRED CYLINDER ADDRESS 
RTS RO sRETURN TO MAIN PROGRAM 


MOV — @#SEECOM,QRHCS1 ;MOV 4 INTO RHCSI 
| 
} 
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CT 
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9777 033300 052077 146704 
9778 033304 013777 002354 
9779 033312 000200 
9780 
9781 
9782 033314 013701 002200 
9783 033320 013702 002176 
9784 033324 013703 002222 
44 033330 013704 002202 
9787 033334 012712 000040 
3 013712 004616 
005011 
0207 


146666 


MACY11 ao af 


25-MAY-79 


END OF PASS ROUTINE 
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THIS SUBROUTINE SETS UP FOR OFFSET COMMANDS 


3CALL IS 


OF SET: 


CLDISK: 


RO,a#OF SET 


(RO) + ,@RHOF 
ance cpamnera 


@#RHCS1,R1 
A#RHCS2,R2 
@#RHDS1,R3 
O#RHER1,RG 


#CLR,AR2 
Q#UNIT,aR2 
art 


PC 


;MICRO INCHES OFFSET 


;SET OFFSET REGISTER 
;MOV14 INTO RHCS1 
;RETURN TO MAIN PROGRAM 


;R1 WILL BE CONTROL AND STATUS! 
zR2 WILL BE CONTROL AND STATUS2 
3R3 WILL BE DISK STATUS REGISTER! 
:R4 WILL BE ERROR REGISTER #1 


;CLEAR ALL REG. 
;REINSTATE UNIT NO. 
;CLEAR FUNCTION BITS 


SEQ 0203 
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9801 033350 


9803 033352 
9804 033356 
9805 033364 
9806 033366 
9807 033372 


9809 033374 
9810 033400 
9811 033406 


9813 033410 
9814 033412 
9815 033416 


9817 033422 
9818 033424 
9819 033430 


9822 033432 
9823 033436 
9824 033442 
9825 033444 
9826 033450 


9829 033452 


9831 033454 
033460 


000000 


011637 
162737 
011346 
052716 
000406 


011637 
162737 
011346 


011146 
042716 
022726 


001403 


-011137 


104062 


042716 
022726 
001404 
011337 
104061 


000207 


062716 
000207 
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033350 
000004 


000100 


033350 
900004 


173577 
004200 


001122 


102000 
010700 


001122 


000006 


033350 


033350 


me RR A a aa 


30A(1052) 
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THIS CHECKS DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 


;AND CHECKS MEDIUM ON LINE (MOL), 


DEVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 


311 MAY CHECK VOLUME VALID (VV) IN RHDS1, DEPENDING ON ENTRY POINT 


PCJSR: 
CHECK: 


CHECKT: 


CHECKC: 


3$: 


7$: 


0 


(SP) ,a#PCJSR 
#4 ,a#PCJISR 
aR3,-(SP) 
avv, (SP) 
CHECKC 


(SP) ,a#PCJSR 
#4 ,a#PCJSR 
@R3,-(SP) 
aR1,-(SP) 


#173577,(SP) 
MDVA!RDY, (SP)+ 


3$ 
OR1,a#$BDADR 
62 


#ATA!LBT, (SP) 


MMOL! DPRIDRY! VV, 


OR3,a#$BDADR 
61 


PC 
#6, (SP) 
PC 


:P€ OF JSR 


SAVE PC OF JSR+4 

;GET PC OF JSR 

7;GET RHDS1 

;DONT CHECK VV BIT 

3GOTO COMMON CHECK ROUTINE 


SAVE PC OF JSR+4 
;GET PC OF JSR 
GET RHDS1 & DO VW CHECK AT 3% 


;GET CS1 

;CLEAR UNWANTED BITS 

;RHCS1 SHOULD HAVE DEVICE AVAILABLE 
;AND BE READY 

;BRANCH IF GOOD 

;BAD DATA REGISTER (RHCS1) 

;RHCS1 DID NOT HAVE DEVICE 
AVAILABLE RIGHT AT THE START 

;ALL OTHER BITS SHOULD BE 0 

; CLEAR UNWANTED BITS 

(SP)+ ;RHDS1 SHOULD HAVE THESE SET 
;BRANCH IF GOOD 

;BAD DATA IN REGISTER (RHDS1) 
;RHDS1 HAS SOME BITS OTHER 

; THAN MOL, DRY, DPR,VV SET 

sALL OTHER BITS SHOULD BE 0 
RETURN TO TEST AND HALT 


;ADJUST STACK TO JUMP OVER HALT IN TEST 
;RETURN TO TEST AND CONTINUE 


SEQ 0204 


eee eae 
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9844 033462 


9857 033512 


9879 033514 


033542 
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000200 


005077 
017737 
017737 
017737 
000002 


146524 
146524 
146502 
146476 


033552 
004564 
004562 
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SAVER: 





25-MAY-79 
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;*THIS 1S A SUBROUTINE TO SAVE REGISTERS 
;*IN THE REGISTER TABLE TO ANY LOCATION 


s*THE CALL IS 


. 
t 


T 
:* N 


;*JSR = RO, AM SAVER 
F ; FROM 


st0 
sNUMBER OF WORDS SAVED 


;*F MUST ALWAYS BE RHCS1 
;*T MUST ALWAYS BE SAVRE 


MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV R2,-(SP) 3;PUSH R2 ON STACK 
MOV R3,-(SP) 3;PUSH R3 ON STACK 
MOV (RO)+,R1 ; FROM 

MOV (RO)+,R2 ;10 

MOV (RO)+,R3 ; NUMBER 

MOV a(R1)+,(R2)+ SAVE REGISTER CONTENTS 
DEC R3 ; COUNT 

BNE 1$ ;BRANCH IF NOT DONE 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (SP)+,R2 33;POP STACK INTO R2 
MOV (SP)+,R1 >;POP STACK INTO R1 
RTS RO 


;WHEN AN EVENT IS TO BE TIMED THE RPO4 VECTORS TO ‘‘TIME 1° 
;PRIORITY OF PROCESS OR IS 4 


PRIORITY OF TRAPS MUST B 


E 6 


;PRIORITY OF RPOS INTERRUPTS IS 7 


TIME1: 
TIME2: 


CLR aPCLCSR 


;STOP THE CLOCK 


MOV O@PCLCTR,Q#WAITTM ;GET TIME ON CLOCK 


MOV ORHCC,a#F INACC 
MOV Q@RHLA,a@#F NALA 


;GET CURRENT CYLINDER 
;GET LOOK AHEAD 
RETURN TO WAIT P OR WAIT.T 


7THIS 1S A WAIT LOOP WHEN AN EVENT IS TO BE TIMED 
THE CALL IS 


SEQ 0205 
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CZRJJD.P11 


033544 


033634 


033640 


033722 


033724 


033726 


000000 


010066 


013703 


104002 


000425 


017737 


033552 
146462 
00002 i 


000010 
033544 
033550 


000010 


034012 
033550 


034012 
033550 


177642 
000100 


177614 


146452 


033544 


177674 


177654 


001126 
146264 


001126 


D OF PASS ROUTINE 


; WAT 

: A ABSOLUTE REGISTER ADDRESS 

: B ;B1T WAITED FOR 

: TA TIME ALLOWED GIVEN IN 10 MICROSEC 

; TO ; TOLERANCE PLUS/MINUS IN 10 MICROSEC 


sRI-WILL HAVE TIME ALLOWED IN 10 MICRO SECONDS 

sR2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SECONDS 
MINIMUM TIME THAT CAN BE MEASURED IS ABOUT 12 MICRO SECONDS 
;FOR THE SLOWEST PROCESSOR 


WAITPC: 0 WAT PC 
WAITRE: 0 ;WAIT ON REGISTER ADDRESS 
WAITBT: 0 ;WAIT ON BIT 
WAITTM: 0 sWAITED TIME 
WAIT.P: CLR OAWALTIM >CLEAR WAITED TIME 
CLR @PCLBUF ;CLEAR COUNT SET BUFFER 
MOV #GO!BIT4,aPCLCSR ;COUNT UP, 100 KHZ, START CLOCK 
MOV RO,-(SP) 3;PUSH RO ON STACK 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV R2,-(SP) ;;PUSH R2 ON STACK 
MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV 10(SP),RO ;RO HAS ADDRESS OF NEXT LOCATION 
MOV RO, a#WAITPC NOW WAITPC HAS WAT PC + 2 
SUB #2 ,QM#WAILTPC WAT PC IS IN WAITPC 
MOV Q@(RO)+,a#WAITRE ;WAIT ON REGISTER ADDRESS 
MOV (RO)+,Q#WAITBT ;WAIT ON BIT 
MOV (RO)+,R1 ;R1 HAS TIME IN 10 MSE 


MOV (RO)+,R2 =R2 HAS TOLERANCE IN 0 MSEC 
MOV RO, 10(SP) *RESTORE RETURN ON STACK 
:*THIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 
MOV ae TIMCNT,R3 :R3. 1S A TEMPORARY COUNTER 
1$: BIT Q#WAITET,@WAITRE :1S REQUIRED BIT THERE 
BNE 4$ sBRANCH IF YES 
DEC RS :COUNT IF REQUIRED BIT NOT THERE 
BN 
MOV ae TIMCNT,R3 : TEMPORARY COUNTER 
2$: BIT Q#WALIBT,aWAITRE ;1S REQUIRED BIT THERE 
BNE Mx :BRANCH IF YES 
DEC Rs . :COUNT IF REQUIRED BIT NOT THERE 
BN 
MOV QWAL TA ,a#SBDDAT ; REGISTER CONTENTS FOR TYPEOUT 
BIT #1E,aRHCS1 :D1D ANY INTERRUPT OCCUR 
BEQ ” age :BRANCH IF YES 
ERROR 1. ) sures DID NOT INTERRUPT 
R > 
3$: ERROR 2 =RPOG INTERRUPTED BUT WAITED 
% [ON BIT DID NOT OCCUR 


SEVEN AFTER TwO COUNT DOWNS 
FROM 177777 10 0 


BR. 7$ :O0uT 
>*NOW TIME AND TOLERANCE WILL BE CHECKED 
4$: MOV QWAITRE ,a#$BDDAT ;REGISTER CONTENTS FOR TYPEOUT 


— 


SEQ 0206 


M16 
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9945 033734 032777 000100 146236 BIT #1E,aRHCS1 ;DID ANY INTERRUPT OCCUR 
9946 033742 001402 BEQ 5$ ;BRANCH IF YES 
9947 033744 104003 ERROR 3 :INTERRUPT DID NOT OCCUR EVEN 
9948 ;AFTER ONE BNE AND ONE MOV 
9949 ;OF THE WAITED ON BIT SETTING 
9950 033746 000414 BR 7$ ;0UT 
9951 033750 160201 5$: SUB R2,R1 ;R1_ NOW HAS LOWER LIMIT OF TIME 
9952 033752 023701 033552 CMP aeWAITIM,P | ;FOR GOOD RESULTS, WAITTM 
9953 ;MUST BE GREATER OR EQUAL 
9954 ; TORI 
9955 033756 103002 BHIS 6$ ;BRAWCH IF GOOD 
9956 033760 104004 ERROR 4 ;B1T DID OCCUR BUT TIME 
9957 ; TAKEN IS BELOW LOWER LIMIT 
at 033762 000406 BR 7% ;0UT 
9960 033764 060202 6$: ADD R2,R2 ;DOUBLE TOLERANCE 
9961 033766 060201 ADD R2,R1 ;R1 NOW HAS UPPER LIMIT OF TIME 
9962 033770 020137 033552 CMP Ri, a#WwALTTM ;FOR GOOD RESULTS, WAITIM 
9963 ;MUST BE LESS OR EQUAL TO R1 
9964 033774 103001 BHIS 7$ ;BRANCH IF GOOD 
9965 033776 104004 ERROR 4 :B1T DID OCCUR BUT TIME TAKEN 
9966 71S ABOVE UPPER LIMIT 
9967 034000 7$: 
9968 034000 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 
9969 034002 012602 MOV (SP)+,R2 ::POP STACK INTO R2 
9970 034004 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
9971 034006 012600 MOV (SP)+,R0 ;;POP STACK INTO RO 
9972 034010 000002 RT] ;RETURN TO MAIN TEST 
9973 
9974 
9975 
9976 
9977 
9978 
9979 ;THIS 1S A WAIT LOOP WHEN NO P=CLOCK IS AVAILABLE 
9980 7NO TIMING IS DONE 
998i ;CALL IS 
9982 ‘ WAT 
9983 : A ;ABSOLUTE REGISTER ADDRESS 
9984 : B ;B1T WAITED FOR 
9985 : TA sTIME= NOT USED HERE 
9986 : 10 TIME-NOT USED HERE 
sed pR3-1S A TEMPORARY COUNTER 
998 
9989 034012 177777 TIMCNT: 177777 ;COUNT FOR WAIT LOOP 
9990 03%014 000025 RPTCTR: 25 :COUNT FOR INTERRUPT WAIT (11/70 CPUd 
9991 
9992 
9993 034016 WAIT.T: 
9994 934016 010046 MOV RO,-(SP) 7;PUSH RO ON STACK 
9995 034020 010346 MOV R3,-(SP) 77PUSH R3 ON STACK | 
9996 
9997 034022 016600 000004 MOV 4(SP),RO ;RO HAS ADDRESS OF NEXT LOCATION 
9998 034026 010037 033544 MOV RO, a#WALTPC ;WAT PC #2 1S IN WAITPC 
9999 034032 162737 000002 033544 SUB #2, Q#WALTPC WAT PC IS _IN WAITPC 
10000 034040 013037 033546 MOV Q(RO)* ,Q#WALTRE WALT ON REGISTER ADDRESS | 
i 
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END OF PASS ROUTINE SEQ 0208 
MOV (RO)+,a#WAITBT ;WAIT ON BIT 
CMP (RO)+,(RO)* ;DUMP NEXT TWO WORDS-TA, TO 
MOV RO,4(SP) RESTORE RETURN ON STACK 


2$: 


3$: 


4$: 


6$: 


5$: 


;*THIS HAS THE TWO COUNT DOWNS FROM 177777 


MOV @aTIMCNT,RS ;R3 HAS TEMPORARY COUNT 

BIT Q#WAITBT,QWAITRE ;1S REQUIRED BIT THERE ? 

BNE 4$ ;CHECK FOR THE INTERRUPT 

DEC R3 ;COUNT IF REQUIRED BIT NOT THERE 


1$ 
MOV aa 1 1MCNT,RS ;SECOND COUNT DOWN FROM 177777 
BIT G#WALTBT,@WAITRE ;1S REQUIRED BIT THERE ? 


BNE 4% :CHECK FOR INTERRUPT 
ae :COUNT IF REQUIRED BIT NOT THERE 
MOV @WALTRE,a#$BDDAT ; REGISTER CONTENTS FOR TYPEOUT 
BIT #1E,aRHCS1 :D1D ANY INTERRUPT OCCUR ? 
BEQ 3$ :BRANCH IF YES 
ERROR 1 :RPO4 DID NOT INTERRUPT 
‘BIT DID NOT OCCUR 
BR 5$ A > 
ERROR 2 :RPO4 INTERRUPTED BUT 


:WAITED ON BIT DID NOT OCCUR 
ZEVEN AFTER TWO COUNT DOWNS 
:FROM 177777 TO 0 

BR 5$ IOUT -o----2-- non --------------- === > 


:*BIT DID SET SO CHECK IF INTERRUPT OCCURRED 


;*THE AMOUNT OF TIME ALLOWED CAN BE CHANGED BY ALTERING LOCATION 
:*''RPTCTR'’ ABOVE 


MOV O#RPTCTR,RS ;LOAD COUNTER WITH COUNT 

DEC R3 ;COUNT DOWN ONE 

BNE 6$ :D0 AGAIN IF NOT ZERO YET 

BIT #1E,QRHCS1 ;D1D ANY INTERRUPT OCCUR ? 

BEQ 5$ ;BRANCH IF YES 

MOV QWAITRE ,a#$BDDAT ; REGISTER CONTENTS FOR TYPEOUT 
ERROR 3 ; INTERRUPT DID NOT OCCUR 


sEVEN AFTER ONE BNE OF 
; THE WAITED ON BIT OCCURING 


BR 5$ TOUT ------0-- enn nnennnnn anna -------- > 
MOV (SP)+,R3 ;;POP STACK INTO R3 
MOV (SP)+,RO POP STACK INTO RO 
RTI RETURN TO MAIN TEST 
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10054 

10055 THIS CHANGES REGISTER SAVED VALUE 

10056 :CALL 1S 

10057 ; JSR RO, a#CHREG 

10058 : Q REGISTER TO BE CHANGED 

10059 ; NUMBER OF BITS TO BE CHANGED 
10060 ; wel ;NEW VALUE OF BIT MUST BE 0 OR! 
10061 ; POSITION OF BIT TO BE CHANGED 
eo NEW wa P WILL BE REPEATED N NUMBER OF TIMES 

10064 034204 CHREG: 

10065 034204 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

10066 034206 010246 MOV R2,-(SP) 7;PUSH R2 ON STACK 

10067 034210 012001 MOV (RO)+,R1 :R1 HAS ADDRESS OF ADDRESS OF REGISTER 
10068 034212 012002 MOV (RO)+,R2 :R2 HAS NUMBER OF CHANGES 
10069 034214 162701 002172 SUB WRHWC,R1 RI HAS OFSET OF REQUIRED REGISTER 
10070 034220 005720 1$ TST (RO) + :1S A BIC OR A BIS TO BE DONE 
10071 034222 001403 BEQ 2$ :BRANCH IF A BIC IS REQUIRED 
10072 034224 052061 004512 BIS (RO)+, SAVERE(RI) :SET REQUIRED BIT 

10073 034230 00040 BR 3$ RANCH TO DECREMENT COUNT 
10074 034232 042061 004512 2$: BIC (RO)+, SAVERE(RI). CLEAR REQUIRED BIT 

10075 034236 005302 3$: DEC R2 :DECREMENT NUMBER OF CHANGES 
10076 034240 001367 BNE 1$ :BRANCH IF NOT COMPLETE 

10077 034242 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

10078 034244 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

10079 034246 000200 RTS RO RETURN TO MAIN PROGRAM 

10080 

10081 

10082 

10083 

10084 

10085 

10086 THIS FILLS A BLOCK WITH INCREMENTAL DATA 

10087 :CALL 1S 

10088 : JSR RO, MF ILL 

10089 : : : FROM 

10090 : N NUMBER OF WORDS 

10091 : S STARTING VALUE OF DATA 

10092 : ] : INCREMENT DATA BY 

10093 

10094 034250 FILL: 

10095 034250 010146 Ov R1,-(SP) :;PUSH R1 ON STACK 

10096 034252 010246 MOV R2,-(SP) ::;PUSH R2 ON STACK 

10097 034254 010346 MOV R3,-(SP) ::PUSH R3 ON STACK 

10098 034256 010446 MOV R4,-(SP) :;PUSH R& ON STACK 

10099 034260 012001 MOV (RO)+,R1 :R1 HAS ADDRESS WHERE DATA IS TO GO 
10100 034262 012002 MOV (RO)+,R2 :R2 HAS NUMBER OF WORDS TO BE FILLED 
10101 034264 012003 MOV (RO)+,R3 STARTING VALUE OF DATA 

10108 034266 012004 MOV (RO)+,R4 =R4 HAS INCREMENT 

1010 :*NOW DATA WILL BE FILLED 

10105 034270 010321 1$: MOV R3,(R1)+ sFILL DATA 

10106 034272 060403 ADD R4,R3 :GET NEXT VALUE OF DATA 

10107 034274 005302 DEC R2 =DECREMENT COUNT 

10108 034276 001374 BNE 1$ :BRANCH IF ALL NOT DONE 

10109 034300 012604 MOV (SP)+,R4 ::POP STACK INTO R4 


SEQ 0209 
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004500 
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MOV 
RTS 
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(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
RO 


:;POP STACK INTO R3 
::70P STACK INTO R2 
:,POP STACK INTO R1 
;RETURN TO MAIN PROGRAM 


; THIS 1S A SUBROUTINE TO COMPARE REGISTERS 
;GOOD DATA IS ALREADY SAVED IN ‘SAVERE’ 
TEST DATA 1S IN THE REGISTERS 


sCALL IS 


RO, a#COMREG 


;"REGADR' HAS REGISTER ADDRESS 


COMREG: 


2$: 


3$: 


MOV 
s*NOW SA 
JSR 

MOVB 

MOV 
;*NOW CO 
A 


R1,-(SP) 
R2,-(SP) 
R3,-(SP) 
R4,-(SP) 
R5,-(SP) 
(RO)+,R1 
(RO)+,R2 
(RO)+,R3 
(RO)+,R4 
(RO) ,RO 
VE REGISTERS 
PC ,a#PUTREG 


;GOOD DATA 

ADDRESS OF ADDRESS TEST DATA 
;RETURN FOR ERROR 

;RETURN FOR GOOD COMPARISON 


RG 
70N RETURN WITH ERROR ‘S$GDDAT' HAS GOOD DATA, ‘SBDDAT' HAS BAD DATA 


:;PUSH R1 ON STACK 

3;PUSH R2 ON STACK 

:;PUSH R3 ON STACK 

::PUSH R4& ON STACK 

:;PUSH RS ON STACK 

:R1 HAS ADDRESS OF GOOD DATA 

>R2 HAS ADDRESS OF ADDRESS OF TEST DATA 
3R3 HAS NUMBER OF WORDS 

>R4 HAS RETURN FOR ERROR 

:RO HAS RETURN ON NO ERROR 


;SAVE REGISTERS 


O#SAVERE+25,Q#AS+1;MAKE UPPER BYTE OF RHAS SAME 


#-2,R5 
MPARES WILL MADE 
#2,R5 >; INCREMENT TO INDEX 
(R1)+,(R2)+ ; COMPARE REGISTER CONTENTS 
2% ;BRANCH IF GOOD 
-(R1),Q#$GDDAT ;SAVE GOOD DATA 
-(R2),a#$BDDAT ;SAVE BAD DATA 
RHWC(R5) ,@M#REGADR SAVE ADDRESS OF FAILING REGISTER 
PC,aR4 ;RETURN TO MAIN PROGRAM 
;T0 PRINT ERROR 
(R1)+#,(R2)+ ;UNDO -(R1) AND =-(R2) FOR ERRORS 
OSWR,-(SP) GET SWITCH SETTING 
#*C600, (SP) ;KEEP ONLY SWITCH 7 AND 8 
#SWO7,(SP)+ 71S 7 SET AND 8 DOWN 
3$ ;BRANCH OUT IF YES 
R3 ;ARE ALL COMPARES DONE 
1$ ;BRANCH IF NOT COMPLETE 
(SP)+#,R5 3;POP STACK INTO R5 


;PRESET R5 TO -2 


SEQ 0210 
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(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
RO 
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;;POP STACK INTO R4 
3;POP STACK INTO R3 
;;POP STACK INTO R2 
;;POP STACK INTO R1 
;RETURN TO MAIN PROGRAM 
; TEMP STORAGE 


SEQ 0211 


es 
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10172 

10173 

10174 ;HERE 1S A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS. 
10175 ;0N HITTING AN ERROR IF THE LOOP ON ERROR SWITCH IS SET, THE 

AE PROGRAM GOES BACK = USUALLY BACK TO THE BEGINNING OF THE TEST. 
10178 WHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THE POINT 
10179 THE PROGRAM GOES BACK TO CAN BE CHANGED. 

10180 THE RESTRICTIONS TO THE POINT WHERE THE PROGRAM CAN GO ARE: - 
10181 :1. 11 MUST BE WITHIN THE TEST UNDER CONSIDERATION 

10182 7:2. LOOP ON ERROR SWITCH MUST BE SET 

10183 73. THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONS!DERATION 
10184 :I1F THE ERROR DOES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
10185 [THE PROGRAM WILL REVERT TO NORMAL OPERATION. HOWEVER, IF LOOP ON 
10186 [TEST SWITCH 1S SET AND THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
10187 THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
ities :COMES TO THE END OF THE TEST UNDER CONSIDERATION. 

10190 AFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
nd: sNORMAL OPERATION WILL CONTINUE. 

10193 034446 000000 TESTAD: 0 FIRST ADDRESS OF TEST 

10194 034450 OPERSEL: 

10195 034450 005037 177776 CLR PS MAKE PROCESSOR STATUS ZERO 
10196 034454 012737 177777 041170 MOV #-1,Qa#PRITEM CLEAR PREVIOUS ITEM NUMBER 
10197 034462 104401 034470 TYPE 058 is TYPE ASCIZ STRING 

10198 034466 000421 BR 64% :GET ONER THE ASCIZ 

10199 ::65$: .ASCIZ <15><12>/THE PROGRAM WAS IN TEST NUMBER / 

10200 034532 64$: 

10201 034532 013746 004504 MOV Q@#TSTNM,-(SP)  ;GET READY TO TYPE TEST 

10202 034536 104402 TYPOC NUMBER 

10203 034540 104401 034546 TYPE are :s TYPE ASCIZ STRING 

10204 034544 000414 BR 66$ :GET OVER THE ASCIZ 

10205 ::67$: .ASCIZ <15><12>/THE LOOP BACK PC WAS / 

10206 034576 66$: 

10207 034576 013746 001110 MOV Q#SLPERR,-(SP) ;GET READY TO TYPE LOOP BACK PC 
10208 034602 104402 TYPOC 

10209 034604 104401 001223 TYPE »SCRLF 

10210 034610 104401 034616 TYPE ,09$ 7s TYPE ASCIZ STRING 

10211 034614 000430 BR 68$ :GET OVER THE ASCIZ 

10212 ::69%: .ASCIZ <15><12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/ 
10213 034676 68$: 

10214 034676 104401 034704 TYPE ,71$ : TYPE ASCIZ STRING 

10215 034702 000420 BR 70$ :GET OVER THE ASCIZ 

10216 ::71$: .ASCIZ <15><12>/TYPE THE FIRST PC OF THE TEST/ 

10217 034744 70$: 

10218 034744 104401 034752 TYPE ,13$ ;s TYPE ASCIZ STRING 

10219 034750 000432 Bk 72$ :GET OVER THE ASCIZ 

10220 ::73$: .ASCIZ <15><12>/10 BE LOOPED ON FOLLOWED BY A CARRIAGE RETURN /<15><12> 
10221 035036 72$: 

10222 035036 104412 RDOCT 

10223 035040 062716 000002 ADD #2,(SP) :GET LPADR 

10224 035044 012637 001106 MOV (SP)+,a#SLPADR 

10225 035050 104461 035056 TYPE 75% i TYPE ASCIZ STRING 

10226 035054 000417 BR 74$ :GET OVER THE ASCIZ 


3:75$: .ASCIZ C18><12>/TYPE THE PC WHERE YOU WANT/ 
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10$: 


TIPE 
BR 
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.77$ is TYPE ASCIZ STRING 
76$ 3;GET OVER THE ASCIZ 
<15><12>/ THE PROGRAM TO LOOP BACK TO FOLLOWED BY A CARRIAGE RETURN /<15 


(SP)+,@#$LPERR ;GET LPERR 
O#SLPADR,-(SP) 


;*THIS SAVES THE CONTENTS CF ALL sa REGISTERS 
7*1N MEMORY LOCATIONS TAGED FROM ‘‘WC’’ TO ‘’EC2"’ 

;*THIS 1S DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 
[*AND NOT THE REGISTERS THEMSELVES. THIS WILL MAKE 

;*ERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


RO,-(SP) ;;PUSH RO ON STACK 

R1,-(SP) 7:PUSH R1 ON STACK 

R2,-(SP) >;PUSH R2 ON STACK 

#RHWC RO STARTING ADDRESS OF REGISTERS 
#WC,RI ;STARTING ADDRESS OF SAVING LOCATIONS 
WRHCC=RHWC+2/2,R2 ;NUMBER OF REG. INIO R2 
mei (R1)+ : SAVE HARDWARE REG. 

R 

10% 

(SP)+,R2 3;POP STACK INTO R2 

(SP)+,R1 3;POP STACK INTO R1 

(SP)+,RO ;;POP STACK INTO RO 

PC 


peed 
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10266 THIS 1S A DATA COMMAND SETUP SUBROUTINE 

10267 ;THE CALL IS 

10268 ; JSR RO,a#RUN 

10269 ; C ; CYLINDER 

10270 s-BYTE $ ; SECTOR 

10271 ;-BYTE T ; TRACK 

10272 : -W ;WORD COUNT 

10273 ; B ;BUS ADDRESS 

10274 : BAI ;BUS ADDRESS INHIBIT 

10275 : FMT22:ECI!HCI sFMT22=1 =16 BIT WORDS 

10276 : EC] = ECC CORRECTION INHIBIT 
10277 : ;HC] = HEADER COMPARE INHIBIT 
10278 : COM ; COMMAND ADDRESS 

10279 035276 012077 144710 RUN: MOV (RO)+,@RHCA ; CYLINDER 

10280 035302 012077 144676 MOV (RO)+,@RHDST DESIRED SECTOR/TRACK 

10281 035306 012077 144660 MOV (RO>+ ,@RHWC ;WORD COUNT 

10282 035312 012077 144656 MOV (RO)+, @RHBA ;BUS ADDRESS 

10283 035316 013746 004616 MOV Q#UNIT,-(SP) ;GET UNIT NO 

10284 035322 052016 BIS (RO)+, (SP) ;SET BUS ADDRESS INHIBIT 
10285 035324 012677 144646 MOV (SP)+,@RHCS2 ;UNIT NO AND BAI TO RHCS2 
10286 035330 012077 144654 MOV (RO) +, @RHOF ;FORMAT, ECC INHIBIT, HEADER 
10287 COMPARE, IF THERE 

10288 035334 013077 144640 MOV a(RO)+,@RHCS1  ;COMMAND IN RHCS1 

10289 035340 000200 RTS RO ;RETURN TO MAIN PROGRAM 
10290 

10291 

10292 

10293 

10294 :THIS 1S A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 

10295 3R1 HAS GOOD DATA BUFFER ADDRESS 

10296 ;R2 HAS TEST DATA BUFFER ADDRESS 

10297 7R5 HAS ADDRESS OF RETURN ON ERROR 
10298 7;R3 HAS NUMBER OF WORDS TO BE COMPARED 

10299 3R4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 

10300 ;CALL 1S 

10301 : JSR RO, a#COMPAR 

19302 : G ;ADDRE“S OF GOOD DATA 

10303 ; T ADDRES. OF TEST DATA 

10304 : N ;NUMBER OF WORDS TO BE COMPARED 
10305 : RE ;RETURN ON ERROR 

10306 : RG ;RETURN ON NO ERROR 

10307 

10308 

10309 
10310 035342 COMPAR: 

10311 035342 01/146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

10312 035344 01.246 MOV R2,-(SP) ;;PUSH R2 ON STACK 

10313 035346 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 

10314 035350 010: 46 MOV R4,-(SP) >;PUSH R4& ON STACK 

10315 035352 010546 MOV R5,-(SP) ;;PUSH R5 ON STACK 

10316 035354 012001 MOV (RO)+,R1 ;ADDRESS OF GOOL DATA BUFFER 
10317 035356 012002 MOV (RO)+,R2 ADDRESS OF TEST DATA BUFFER 
10318 035360 012003 MOV (RO)+,R3 ;NO OF WORDS TO Be COMPARED 
19319 035362 012005 MOV (RO)+,R5 ;RETURN ON ERROR 

10320 035364 011000 MOV (RO) ,RO ;RETURN ON NO ERR‘ 

10321 035366 010304 MOV R3,R4 ;NO OF WORDS TO 8! * COMPARED 
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10322 035370 005204 INC R4 

10323. 035372 010437 004502 13: MOV R4 ,a#ERWORD FOR ERROR WORD NO 

10324 035376 022122 CMP (R1)+,(R2)+ :COMPARE GOOD WITH TEST DATA 
ieese 035400 001417 BEQ 2$ :BRANCH IF GOOD 

10327 035402 014137 001124 MOV -(R1),@#$GDDAT ;GOOD DATA 

10328 035406 014237 001126 MOV -(R2),a#$BDDAT ;BAD DATA 

10529 035412 160337 004502 SUB R3,a#ERWORD ;ERROR WORD NO. 

10330 035416 004715 JSR PC,@R5 ;RETURN 70 PRINT ERROR 

10331 035420 022122 CMP (R1)+,(R2)¢+ ;UNDO -(R1) AND -(R2) FOR ERRORS 
1033< 035422 017746 143512 MOV @SWR,-(SP) GET SWITCH SETTING 

10333 035426 042716 177177 BIC #*C600, (SP) sKEEP ONLY SWITCH 7 AND 8 

0334 0345432 022726 000200 CMP #SWO7,(SP)+ ;1S 7 SET AND 8 RESET 

.0335 035436 001402 BEQ 3$ ;BRANCH OUT IF YES 

1336 035440 005303 2$: DEC R3 ; COUNT 

10337 035442 001353 BNE 1$ ;BRANCH IF ALL NOT DEVICE 

10338 035444 3$: 

10339 035444 012605 MOV (SP)+,R5 ;;POP STACK INTO R5 

10340 035446 012604 MOV (SP)+,R4 ;;POP STACK INTO R4 

10341 035450 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 

10342 035452 012602 MOV (SP)+#,R2 ;;POP STACK INTO R2 

10343 035454 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 

10344 035456 000200 RTS RO ;RETURN TO MAIN PROGRAM 

10345 ‘@ THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 

st a i ADDRESS FROM 176700 TO ANY TYPED vALUE 

10348 035460 BASECH: 

10349 035460 104401 035466 TYPE vty +i TYPE ASCIZ STRING 

10350 035464 000425 BR 64$ ;GET OVER THE ASCIZ 

10351 :765$: .ASCIZ <15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 
10352 035540 64$: 

10353 035540 013746 002200 MOV @#RHCS1,-(SP)  ;GET READY TO TYPE OLD BASE 
10354 035544 104402 TYPOC 

10355 035546 104401 035554 TYPE rer 23 TYPE ASC1Z STRING 

10356 035552 000425 BR GET OVER THE ASCIZ 

10357 3:67$: .ASCIZ oh8>c12>/ TYPE NEW BASE ADDRESS FOLLOWED BY ‘CR’ / 
10358 035626 66$: 

10359 035626 004737 037562 JSR PC ,Q#$TKINT s INITIALIZE THE TTY KEYBOARD 
10360 035632 104412 RDOCT 

10361 035634 012700 002170 MOV #RHDB,RO GET STARTING ADDRESS OF REGISTERS 
10362 035640 012701 000026 ; MOV #22.,R1 ;NUMBER OF REGISTERS 

10363 035644 012737 036450 000004 MOV #ADTIMO,044 ;SET UP TRAP CATCHER FOR TEST 
10364 035652 021637 002200 CMP aSP,a#RHCS1 ;NEW ADDRESS 

10365 035656 001407 BEQ 1$ NO, JUST OLD ONE RETYPED 

10366 035660 C05776 000000 TST a0(SP) ;DO THE ADDRESS ACCESS 

10367 035664 163716 002200 SUB O#RHCS1 ASP ;GET THE ADDRESS OFFSET 

10368 035670 061620 2$: ADD asP,(RO)+ ;AND PLUG IT IN 

10369 035672 005301 DEC R1 ONE LESS REGISTER TO DO 

10370 035674 001375 BNE 2$ ;BUT WE'RE NOT DONE YET! 


1 : 

10372 035676 104401 035704 TYPE 609% is TYPE ASCIZ STRING 
10373 035702 000417 BR 68$ GET OVER THE ate 
+t ty Tt eASCIZ < *S><12>/PRESENT VECTOR ADDRESS IS / 
1 68$: 
10 
10 


0 
376 035742 013746 002166 MOV @#RPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 
035746 104402 TYPOC 


.7 
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CZRJJD.P11 28-MAR-79 08:52 END OF PASS ROUTINE SEQ 0216 
10378 035750 104401 035756 TYPE 71% 77 TYPE ASCIZ er 

10379 035754 000437 BR 70$ [GET OVER THE ASCIZ 

10380 2371$: .ASCIZ <15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED By ‘’CR’’ / 
10381 036054 70$: 

10382 036054 104412 RDOCT 

10383 036056 012637 002166 MOV (SP)+,@@RPVEC a OPE VECTOR ADDRESS 

10384 036062 104401 036070 TYPE (3% TYPE ASCIZ STRING 

10385 036066 000417 BR 72% GET OVER THE ASCIZ 

10386 3:73$: .ASCIZ <15>4<12>/NEW BASE “WILL REMAIN -/ 

10387 036126 72%: 

10388 036126 013746 002200 MOV @#RHCS1,-(SP) 

10389 036132 104402 TYPOC 

10390 036154 104401 036142 TYPE 15% 23 TYPE ASCIZ STRING 

10391 036140 000417 BR 74% sGET OVER THE ASCIZ 

10392 23758: .ASCIZ <15><12>/NEW VECTOR WILL REMAIN = / 

10393 036200 743: 

10394 036200 013746 002166 MOV @#RPVEC,-(SP) 

10395 036204 104402 TYPOC 

10396 036206 104401 036214 TYPE Uy is TYPE ASCIZ STRING 

10397 036212 000437 BR 76% GET OVER THE ASCIZ 

10398 3:77$: .ASCIZ <15><12>/UNTIL PROGRAM 1S RELOADED./ 

10399 036252 76$: 

10400 036252 104401 036260 TYPE 19% >; TYPE ASCIZ STRING 

10401 036256 000402 BR 78$ ::GET OVER THE ASC12Z 

10402 3379$: .ASCIZ <15><12>/ / 

10403 036264 78$: 

10404 036264 104401 036272 TYPE ,81$ 7 TYPE ASCIZ STRING 

10405 036270 000424 BR 80% 3GET OVER THE ASCIZ 

10406 3381$: .ASCIZ <15><12>/UNLESS HALTED AND MANUALLY RESTARTED,/ 
10407 036342 80$: s 
10408 036342 104401 036350 TYPE ,83$ is TYPE ASCIZ STRING 

10409 036346 000426 BR 82$ :GET OVER THE ASCIZ 

10410 +:83$: .ASCIZ <15><12>/PROGRAM WILL AUTOMATICALLY RESTART FROM / 
10411 036424 82$: 

10412 036424 012746 000200 MOV #RA,-(SP) 

10413 036430 104402 TYPOC 

10414 036432 104401 036440 TYPE ,85$ TYPE ASCIZ STRING 

10415 036436 000402 BR 84$ ::GET OVER THE ASCIZ 

10416 2:85$: .ASCIZ <15><12>/ / 

10417 036444 84$: 

10418 036444 000137 004712 JMP a#BEGIN :D0 1T OVER AGAIN 

10419 036450 ADTIMO: 

1042G 036450 104401 036456 TYPE cot ii TYPE ASCIZ STRING 

10421 036454 000424 BR :GET OVER THE ASCI2Z 

10422 23658: .ASCIZ eictancthPovaes ities ADDRESS DID NOT RESPOND. / 
10423 036526 64$: 

10424 036526 022626 CMP (SP)+,(SF)+ sRESTORE STACK 

10425 036530 000137 035460 JMP a*#BASECH :AND DO THE QUERY AGAIN! 


Kk 1 
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CZRJJO.P11 28-MAR-79 08:52 END OF PASS ROUTINE 
10427 ppteteeeereereerreerererereeetrereretereeeeeeeeeeeAteeeeeereeeeeee 
10428 036534 RPVECT: 
10429 036534 104401 036542 TYPE 65% 2s TYPE ASCIZ STRING 
10430 036540 000424 BR 64% 3;GET OVER THE ASCIZ 
10431 3:65$: .ASCIZ /UNEXPECTED INTERRUPT FROM RPO4 @ PC = / 
10432 036612 64$: 
10433 036612 104402 TYPOC ; TYPE FROM PC 
10434 036614 012777 036534 143344 MOV MRPVECT ,ARPVEC sRESTORE TRAP RPO4 VECTOR 
10435 036622 000000 HALT ; CHANGE TO CONTINUE 
10436 ppeteeeeeeeerereerrterereeeeetttreeeteeteKeeeReee Tete eer ete eee Te 
10437 


SEG 0217 


ie 
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036624 
036624 
036626 
036634 
036636 


036640 


037016 
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104407 
032777 
001111 
000416 


013746 


000423 
032777 


012737 


040000 


000004 
036664 
177060 
000004 


000004 


000400 
142230 
001103 
001115 
001000 
001110 


001103 
001212 


004000 
001100 


001104 
001212 


000001 


142304 


000004 


142236 
001102 


001103 


142290 
001106 


142146 


001104 
001104 


SYSMAC LIBRARY ROUTINES 
-SBTTL SYSMAC LIBRARY ROUTINES 


-SBTTL SCOPE HANDLER ROUTINE 


ppeeeeereererereereeeeeteeeeeeAeereeeeeee eee eee eee eeTerees 
;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 


3*SW14=1 LOOP ON TEST 

:*SWi1=1 INHIBIT be pc 

3 *SWO9=1 LOOP ON ERROR 

3 *SW08=1 LOOP ON TEST IN SWR<7:0> 

> *CALL 

3# SCOPE ;;SCOPE=i0T 
SSCOPE: 

KSWR 7: TEST FOR CHANGE IN SOFT-SWR 
1$: BIT #B1T14,aSWR ; LOOP ON PRESENT TEST? 
$ YES IF Swi4=1 


BNE OVER 
:WHAHASTART OF CODE FOR 'HE XOR TESTERS#AAM 
$XTSTR: BR 6$ 7:1 RUNNING ON THE ‘'XOR'' TESTER CHANGE 
3;THIS INSTRUCTION TO A ‘'NOP’’ (NOP=240) 
MOV Q@WERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 


MOV #5% ,AMERRVEC 3;SET FOR TIMEOUT 
TST a#177060 ;:TIME OUT ON XOR? 
MOV (SP)+,Q@MERRVEC ;;RESTORE THE ERROR VECTOR 
BR SSVLAD 3;G0 TO THE NEXT TEST 
5$: CMP (SP)+,(SP)+ 7;CLEAR THE STACK AFTER A TIME OUT 
MOV (SP)+,QMERRVEC ; sRESTORE THE ERROR VECTOR 
BR 7$ LOOP ON THE PRESENT TEST 
6$:;M##HHEND OF CODE FOR THE XOR TESTERMMMAM 
BIT #B1108,aSWR :s LOOP ON SPEC. TEST? 
BEQ 2$ :BR IF NO 
CMPB aSWR,STSTNM ::0N THE RIGHT TEST? SWR<7:0> 
BEQ SOVER + 3BR IF YES 
2$: TSTB SERFLG ;HAS AN ERROR OCCURRED? 
BEQ 3$ ::BR IF NO 
CMPB SERMAX ,SERFLG io MAX. ERRORS FOR THIS TEST OCCURRED? 
BHI 3$ :BR IF NO 
BIT #B1T09,aSWR ; LOOP ON ERROR? 
BEQ 4$ ;BR IF NO 
7$: MOV ~<a ::SET LOOP ADDRESS TO LAST SCOPE 
BR V 
a: . (1.09 SERFLG ;;ZERO THE ERROR FLAG 
CLR STIMES ;;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
BR 1$ ;;ESCAPE TO THE NEXT TEST 
3$: BIT #BIT11,aSWR >; INHIBIT ITERATIONS? 
BNE 1$ ::BR IF YES 
TST SPASS ie lF FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC SICNT ::INCREMENT ITERATION COUNT 
CMP STIMES,SICNT >; CHECK THE NUMBER OF ITERATIONS MADE 
BGE SOVER ;;BR IF MORE ITERATION REQUIRED 
1$: MOV #1, S1CNT s REINITIALIZE THE ITERATION COUNTER 


SEQ 0218 
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037074 
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013737 


000004 


CTRLR2 
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037074 


001106 
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SCOPE HANDLER ROUTINE 


001212 


$SVLAD: 


001115 
142054 S$OVER: 


SMXCNT: 


R 
4 


SMXCNT,STIMES 
STSTNM 

(SP) ,SLPADR 
(SP), SLPERR 
SESCAPE 

#1, SERMAX 
STSTNM,ADISPLAY 
SLPADR, (SP) 


"1 
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;;SET NUMBER OF ITERATIONS TO DO 
;;COUNT TEST NUMBERS 

;;SAVE SCOPE LOOP ADDRESS 

;;SAVE ERROR LOOP ADDRESS 

;;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
;;DISPLAY TEST NUMBER 

;;FUDGE RETURN ADDRESS 

77FIXES PS 

;;MAX. NUMBER OF ITERATIONS 


SEQ 0219 
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GE 221 

CZRJJD. P11 28-MAR-79 08:52 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0220 
10282 -SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 

10507 ppeeeeeereererrereeeerereeeeeereeeetereeeeeereneeeeeAeteeeeee Tee 
10508 >*THIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
10509 >*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
10510 >*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
10511 ;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
10512 ; *REPLACED WITH SPACES. 

10513 *CALL: 

10514 ie MOV NUM ,-(SP) 3;PUT THE BINARY NUMBER ON THE STACK 
10515 3* TYPDS 3;G0 TO THE ROUTINE 

10516 

10517 037076 $STYPDS: 

10518 037076 010046 MOV RO,-(SP) ;:PUSH RO ON STACK 

10519 037100 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

10520 037102 010246 MOV R2,-(SP) 3:PUSH R2 ON STACK 

10521 037104 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 

10522 037106 010546 MOV R5,-(SP) 3;PUSH RS ON STACK 

10523 037110 012746 020200 MOV #20200, -(SP) 3:SET BLANK SWITCH AND SIGN 

10524 037114 016605 000020 MOV 20(SP),R5 3:;GET THE INPUT NUMBER 

10525 037120 100004 BPL 1$ 7:BR IF INPUT IS POS. 

10526 037122 005405 NEG R5 3;MAKE THE BINARY NUMBER POS. 

10527 037124 112766 000055 000001 MOVB #'=,10SP) >;MAKE THE ASCII] NUMBER NEG. 

10528 037132 005000 1$: CLR RO ;:ZERO THE CONSTANTS INDEX 

10529 037134 012703 037312 MOV #SDBLK ,R3 7:SETUP THE OUTPUT POINTER 

10530 037140 112723 000040 MOVB #' ,(R3)+ 3;SET THE FIRST CHARACTER T0 A BLANK 
10531 037144 005002 2$: CLR R2 7: CLEAR THE BCD NUMBER 

10532 037146 016001 037302 MOV SDTBL(RO),R1 + 3GET THE CONSTANT 

10533 037152 160105 3$: SUB R1,R5 ;FORM THIS BCD DIGIT 

10534 037154 002402 BLT 4$ ::BR 1F DONE 

10535 037156 005202 INC R2 3; INCREASE THE BCD DIGIT BY 1 

10536 037160 000774 BR 3$ 

10537 037162 060105 4$: ADD R1,R5 >7;ADD BACK THE CONSTANT 

10538 037164 005702 TST R2 7: CHECK IF BCD DIGIT=0 

10539 037166 001002 BNE 5$ 3;FALL THROUGH IF 0 

10540 037170 105716 TSTB (SP) 7:STILL DOING LEADING 0'S? 

10541 037172 100407 BM] 7$ :3BR IF YES 

10542 037174 106316 5$: ASLB (SP) MSD? 

10543 037176 103003 BCC 6$ :IBR IF NO 

10544 037200 116663 000001 177777 MOVB 1(SP),-1(R3) 7: YES--SET THE SIGN 

10545 037206 052702 000060 63: BIS #'0,R2 >:MAKE THE BCD DIGIT ASCII 

10546 037212 052702 000040 7$: BIS #' ,R2 >:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
10547 037216 110223 MOVB R2,(R3)+ 3;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
10548 037220 005720 TST (RO)+ 3; JUST INCREMENTING 

10549 037222 020027 000010 CMP RO,#10 7: CHECK THE TABLE INDEX 

10550 037226 002746 BLT 2$ 3:60 DO THE NEXT DIGIT 

10551 037230 003002 BGT 8$ 3:60 TO EXIT 

10552 037232 010502 MOV R5,R2 ::GET THE LSD 

10553 037234 000764 BR 6$ 3:60 CHANGE TO ASCII 

10554 037236 105726 8$: TSTB (SP)+ +3 WAS THE LSD THE FIRST NON-ZERO? 
10555 037240 100003 BPL 9$ :BR IF NO 

10556 037242 116663 177777 177776 MOVB -1(SP),-2(R3) SS YES@=SET THE ate FOR TYPING 

10557 037250 105013 9$: CLRB (R3) 3:SET THE TERMINATO 

10558 037252 012605 MOV (SP)+,R5 3;POP STACK INTO RS 

10559 37254 012603 MOV (SP)+,R3 >;POP STACK INTO R3 


0 
10560 037256 012002 MOV (SP)*,R2 7;POP STACK INTO R2 
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28-PAR-79 08:52 CONVERT BINARY TO DECIMAL AND TYPe ROUTINE 
012601 MOV (SP)+,R1 :;POP STACK INTO RI 
012600 MOV (SP)+,R0 :;POP STACK INTO RO 
104401 037312 TYPE , SOBLK >;NOW TYPE THE NUMBER 
016666 000002 000004 MOV 2(SP),4(SP) :;ADJUST THE STACK 
012616 MOV (SP)+, (SP) 
000002 RTI 7 ;RETURN TO USER 
223420 $DTBL: 10000 
001750 000. 
000144 100. 
000012 0. 
000004 $DBLK: BLKW 4 





SEQ 0221 | 
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037422 
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037446 
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037456 
037464 
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105737 


013746 
105366 
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001157 
000002 


000002 
000011 
000200 


037536 


037472 
001156 


001154 
000001 


037472 
037536 


000040 
037472 
000007 037536 


TYPE ROUTINE 
»SBTTL 


25-MAY-79 


TYPE ROUTINE 


= 
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,;eeeekeererrrreerererereerereeeeeeericteteeeeeteeereteeeeReTesese 


! #ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 ee F 


:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE 


set) USING A TRAP INSTRUCTION 


: *NOT El: 
:*NOTE2: 
: *NOTE3: 
an 
7 *CALL 
TYPE 
OR 
é TYPE 
oe MESADR 
a2 
$TYPE TSTB 
BPL 
HALT 
BR 
1$ MOV 
MOV 
2$ MOVB 
BNE 
TST 
60$: MOV 
3$: ADD 
RT] 
4$ CMPB 
BEQ 
CMPB 
BNE 
TST 
TYPE 
SCRLF 
CLRB 
BR 
5$: JSR 
é$: CMPB 
BNE 
MOV 
7$: DECB 
BLT 
JSR 
DECB 
BR 
sHORIZONTAL TAB 
8$: MOVB 
: JSR 
BIB 
BNE 
TST 


FEED. 
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 


$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


»MESADR 


STPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
(RO)+,=-(SP) 
4$ 

(SP)+ 
(SP)+,RO 
#2, (SP) 


+p deta 
WCRLF, (SP) 
5$ 

(SP)+ 


SCHARCNT 
2$ 


PC ,STYPEC 
SFILLC,(SP)+ 


23 
$NULL,-(SP) 
1(SP) 

6$ 

PC, STYPEC 
SCHARCNT 

7$ 
PROCESSOR 
#" (SP) 
PC, STYPEC 
#7, SCHARCNT 
9$ 


(SP)+ 


>;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


7371S THERE A TERMINAL? 
37BR IF YES 

;;HALT HERE IF NO TERMINAL 

7; LEAVE 

7: SAVE RO 

3:GET ADDRESS OF ASCIZ STRING 


;;PUSH CHARACTER TO BE TYPED ONTO STACK 


;;BR IF IT ISN'T THE TERMINATOR 

::1f TERMINATOR POP IT OFF THE STACK 
; RESTORE RO 

fio poe 3 RETURN PC 


; RETURN 
: BRANCH IF <HT> 
;;BRANCH IF NOT <CRLF> 


::POP <CR><LF> EQUIV 
3: TYPE A CR AND LF 


;;CLEAR CHARACTER COUNT 

;;GET NEXT CHARACTER 

:;GO0 TYPE THIS CHARACTER 

::1S 17 TIME FOR FILLER CHARS.? 
::1F NO GO GET NEXT CHAR, 

::GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR, 

;;DOES A NULL NEED TO BE TYPED? 


::BR IF NO--GO POP THE NULL OFF OF STACK 


3:G0 TYPE A NULL 
;;b0 95 COUNT AS A COUNT 


>; REPLACE TAB WITH SPACE 
>; TYPE A SPACE 

Spy? iy NOT AT 

3: TAB STO 

3; POP soace OFF STACK 


SEQ 0222 
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TYPE ROUTINE 
BR 

$TYPEC: TSTB 
BP 


141444 MOVB 
000002 CMPB 


000002 1%: CMPB 


B 
$CHARCNT: .WORD 
STYPEX: RTS 


STYPEC 
2(SP) ,a$TPB 
WCR,2(SP) 
1$ 
SCHARCNT 
STYPEX 
WLFE ,2(SP) 
STYPEX 
(PC)+ 

0 

PC 


3;GET NEXT CHARACTER 
;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 


31S CHARACTER A CARRIAGE RETURN? 
;;BRANCH IF NO 
a+ tt ae CHARACTER COUNT 


73 EXl 

3:18 CHARACTER A LINE FEED? 
:;BRANCH IF YES 

3; COUNT THE CHARACTER 

>; CHARACTER COUNT STORAGE 


SEQ 0225 
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000000 


037562 


005037 


000207 


117746 


001500 


022737 


001021 


037542 
037550 


000100 


141310 
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037562 
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037544 


000062 
141314 


001140 


037542 


TTY INPUT ROUTINE 
~-SBTTL TTY INPUT ROUTINE 


; ,;eeeeeeeeeeeeeeeeeeeeetereeereeerereeeeeeeeteeteeeeRereererereee 


“ENABL LSB 

STKCNT: .WORD 0 ;;NUMBER OF ITEMS IN QUEUE 
$TKQIN: .WORD 0 ;; INPUT POINTER 

$STKQGUT: .WORD 0 ;;OUTPUT POINTER 

$TKQSRT: .BLKB 9 ;:TTY KEYBOARD QUEUE 
STKQEND=. 

-EVEN 


:*TK INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
:*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


>*CALL: 
:* JSR 
:* RETURN 
STKINT: CLR STKCNT 3;CLEAR COUNT OF ITEMS IN QUEUE 
MOV #STKQSRT,STKQIN ;;MOVE THE STARTING ADDRESS OF THE 
MOV STKQIN,STKQOUT ;;QUEUE INTO THE INPUT & OUTPUT POINTERS. 


MOV #STKSRV ,OMTKVEC ;;INITIALIZE THE KEYBOARD VECTOR 
MOV #200 ,aMTKVEC+2 ;;"’BR' LEVEL 4 


PC, STKINT 


TST asTKB ;;CLEAR CONE FLAG 
MOV #100,a$TKS ;;ENABLE TTY KEYBOARD INTERRUPT 
RTS PC RETURN TO CALLER 


:*TK SERVICE ROUTINE 

:*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 

;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

;*1T IN THE QUEUE. 

s*1F THE CHARACTER IS A ‘'CONTROL-C"’ (*C) STKINT IS CALLED AND 

:*UPON RETURN EXIT IS MADE TO THE ‘’CONTROL=-C'’ RESTART ADDRESS (OPERSCL) 


STKSRV: MOVB a$TKB,-(SP) 3;PICKUP THE CHARACTER 
BIC #*C177,(SP) 7:STRIP THE JUNK 
CMP (SP), #3 3:18 17 A CONTROL C? 
BNE 1$ ;;BRANCH IF NO 
TYPE ,SCNTLC 3: TYPE A CONTROL=-C (“*C) 
JSR PC,STKINT 3: INIT THE KEYBOARD 
TST (SP)+ 3;CLEAN UP STACK 
JMP OPERSEL ;: CONTROL C RESTART 
1$: CMP (SP) ,#7 3:18 117 A CONTROL G? 
BNE 2$ 7:BRANCH IF NO 
CMP #SWREG, SWR 3:18 SOFT-SWR SELECTED? 
BEQ 6$ ::G0 TO SWR CHANGE 
2$: 
CMP #9. ,$TKCNT i315 THE QUEUE FULL? 
BNE 3$ sBRANCH IF NO 
TYPE , SBELL > RING THE TTY BELL 
aa 2 gh sscLen CHARACTER OFF OF STACK 
3$: CMP (SP), #23 Ae 1T A CONTROL=S? 
BNE 32% ;;BRANCH IF NO 


SEQ 0224 
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10698 037732 005077 141206 CLR astKs 7;DISABLE TTY KEYBOARD INTERRUPTS 
10699 037736 005726 TST (SP)+ :;CLEAN CHAR OFF STACK 
10700 037740 105777 141200 31$: TSTB astKs 7:;WAIT FOR A CHAR 
10701 037744 100375 BPL 31$ 3;LOOP UNTIL ITS THERE 
10702 037746 117746 141174 MOVB a$TKB,-(SP) 3;GET THE CHARACTER 
10703 037752 042716 177600 BIC #*C177, (SP) ::MAKE IT 7-BIT ASCII 
10704 037756 022627 000021 CMP (SP)+, #21 i318 1T A CONTROL-Q? 

10705 037762 001366 BNE 31$ ;BRANCH IF NO 
10706 037764 012777 000100 141152 MOV #100,a$TKS i; REENABLE TTY KEYBOARD INTERRUPTS 
10707 037772 000002 RTI ;RETURN 
10708 037774 005237 037542 328: INC STKCNT >: COUNT THIS CHARACTER 
10709 040000 021627 000140 CMP (SP) ,#140 3:18 11 UPPER CASE? 
10710 040004 002405 BLT 4$ 3;BRANCH IF YES 
10711 040006 021627 000175 CMP (SP) ,#175 3318 IT A SPECIAL CHAR? 
10712 040012 003002 BGT 4$ ;;BRANCH IF YES 
10713 040014 042716 000040 BIC #40, (SP) 3;MAKE IT UPPER CASE 
10714 040020 112677 177520 4$: MOVB (SP)+,a$TKQIN 3;AND PUT IT IN QUEUE 
10715 040024 005237 037544 INC STKQIN ;;UPDATE THE POINTER 
(9716 040030 023727 037544 037561 CMP STKQIN,#STKQEND ;;GO OFF THE END? 
10717 040036 001003 BNE 5$ ;;BRANCH IF NO 
10718 040040 012737 037550 037544 MOV #STKQSRT,STKQIN ;;RESET THE POINTER 
+ 4h 040046 000002 5$: RTI 3; RETURN 
10721 ppeeeeeeeeeeeeerededeeeeeeereeereReeee Ae eKe Kee ee eee eee TES 
10722 s*SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
10723 :*ROUTINE 1S ENTERED FROM THE TRAP HANDLER, AND WILL 
10724 s*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
10725 s*CALL WHEN OPERATING IN TTY INTER RuPT MODE. 
10726 040050 022737 000176 001140 SCKSWR: CMP #SWREG, SWR 31S THE SOFT-SWR SELECTED 
10727 040056 (001124 BNE 15$ SEX IF NOT 
10728 040060 105777 141060 TSTB astKs 3:18 A CHAR WAITING? 
10729 040064 100121 BPL 15$ sc 1F NOT, EXIT 
10730 040066 117746 141054 MOVB a$TKB,-(SP) ss Ves 
10731 040072 042716 177600 BIC #°C177, (SP) ::MAKE IT 7-BIT ASCII 
10732 040076 021627 000007 CMP (SP) ,#7 7:18 11 A CONTROL-G? 
10733 040102 001300 BNE 2$ ;;1F NOT, PUT IT IN THE TTY QUEUE 
10734 3;AND EXIT 
10735 
10736 peeereeeteeeteeerertttrteerertrertreeeeeee eee ete e eee 
10737 « SCONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
10738 :*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A 
10739 = *CONTROL- G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 
10740 040104 123727 001134 000001 6$: CMPB SAUTOB, #1 7; ARE WE RUNNING IN AUTO-MODE? 
10741 040112 001674 BEQ 23 ;;BRANCH IF YES 
10742 040114 005726 TST (SP)+ 7;CLEAR CONTROL-G OFF STACK 
10743 040116 004737 037562 JSR PC,STKINT ssFLUSH THE TTY INPUT QUEUE 
10744 040122 005077 141016 CLR astKs > ;DISABLE TTY KEYBOARD INTERRUPTS 
aes 040126 112737 000001 001135 MOVB #1,SINTAG :;SET INTERRUPT MODE INDICATOR 
46 
10747 040134 104401 040633 TYPE -SCNILG 7;ECHO THE CONTROL=-G (*G) 
10748 040140 104401 040640 $GTSWR: TYPE , SMSWR 7; TYPE CURRENT get ha 
10749 040144 012746 000176 MOV SWREG,-(SP) He SWREG FOR TYPEOUT 
10750 040150 104402 TYPOC GO TYPE--OCTAL ASCII(ALL DIGITS) 
10751 040152 104401 040651 TYPE , SMNEW : PROMPT FOR NEW SWR 
10752 040156 005046 19$: CLR -(SP) CLEAR COUNTER 
10753 040160 005046 CLR -(SP) Y 7; THE NEW SWR 
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TTY INPUT ROUTINE 


7$: 


17$: 


18$: 
~DSABL 


25-MAY-79 
TSTB astKs 
BPL 7$ 
MOVB a$TKB,-(SP) 
BIC #*°C177,(SP) 
CMP (SP) #3 
BNE 9$ 
TYPE -SCNTLC 
ADD #6,SP 
CMPB SINTAG,#1 
BNE 8$ 
MOV #100 ,a$TKS 
JMP OPERSEL 
CMP (SP) ,#25 
BNE 10$ 
TYPE »$CNTLU 
ADD #6,SP 
BR 19% 
CMP (SP) ,#15 
BNE 16$ 
TST 4(SP) 
BEQ 11$ 
MOV 2(3P) ,aSWR 
ADD SP 
TYPE , SCRLF 
CMPB SINTAG, #1 
BNE 15$ 
MOV #100,a$TKS 
RTI 
JSR PC ,STYPEC 
CMP (SP) ,#60 
BLT 18$ 
CMP (SP) ,#67 
BGT 18$ 
BIC #60,(SP)+ 
TST 2(SP) 
BEQ 17$ 
ASL (SP) 
ASL (SP) 
ASL (SP) 
INC 2(SP) 
BIS ~2(SP), (SP) 
BR 7$ 
TYPE ,$QUES 
BR 20% 
LSB 
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7; CHAR THERE? 
7:1 NOT TRY AGAIN 


;;PICK UP CHAR 
7;MAKE IT 7-BIT ASCII 


3:18 11 A CONTROL-C? 

;;BRANCH IF NOT 

77YES, ECHO CONTROL=-C (“C) 

3;CLEAN UP STACK 

; sREENABLE TTY KEYBOARD INTERRUPTS? 
;;BRANCH IF NO 

;;ALLOW TTY KEYBOARD INTERRUPTS 

3; CONTROL-C RESTART 


3:18 17 A CONTROL-U? 
;;BRANCH IF NOT 

3:YES, ECHO CONTROL-U (“U) 
:;1GNORE PREVIOUS INPUT 
:;LET'S TRY IT AGAIN 


s:18 1T A <CR>? 

;;BRANCH IF NO 

::YES, IS IT THE FIRST CHAR? 
;;BRANCH IF YES 

7; SAVE NEW SWR 

3;CLEAR UP STACK 

:;ECHO <CR> AND <LF> 

3 ;RE-ENABLE TTY KBD INTERRUPTS? 
>: BRANCH IF NOT 

s ;RE-ENABLE TTY KBD INTERRUPTS 
3 ;RETURN 

s:ECHO CHAR 

>; CHAR < 0? 

;;BRANCH IF YES 

3: CHAR > 7? 

: BRANCH IF YES 

>; STRIP-CFF ASCII 

::1S THIS THE FIRST CHAR 
;:;BRANCH IF YES 

3:NO, SHIFT PRESENT 

ze CHAR OVER TO MAKE 

s3 ROOM FOR NEW ONE. 
3:KEEP COUNT OF CHAR 

::SET IN NEW CHAR 

:;GET THE NEXT ONE 

si TYPE ?<CR><LF> 

s:SIMULATE CONTROL=U 


sp teaerereerccerseresececeserereseseserenerasesereeeaneaenesenete 


*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


7 *CALL: 





SEQ 0226 
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7:GET A CHARACTER FROM THE QUEUE 
;; CHARACTER IS ON THE STACK 
;;W1TH PARITY BIT STRIPPED OFF 


: ;PUSH. DOWN THE PC AND 
!GET READY FOR A CHARACTER 
:!PUT NEW PS ON STACK 

:!PUT NEW PC ON STACK 
POP NEW PC AND PS 


;;WAIT ON A CHARACTER 
;;DECREMENT THE COUNTER 


23GET ONE CHARACTER 
UPDATE THE POINTER 


es WSTKQEND: :3DID IT GO OFF OF THE END? 


ANCH IF NO 


2 ;BR 
#STKOSRT,STKQOUT Fh te THE POINTER 


3; INPUT A STRING FROM THE TTY 


serpent OF FIRST CHARACTER WILL BE ON THE STACK 
TERMINATOR WILL BE A BYTE OF ALL O'S 


>; SAVE R3 
3:GET ADDRESS 
3; ;BUFFER FULL? 
:;BR IF YES 


3:60 READ ONE CHARACTER FROM THE ITTY 


3;GET CHARACTER 
3:18 17 A RUBOUT 
Hh ” NOT 
TYPE A ‘?° 
CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


;;CHECK FOR RETURN 
;;LOOP IF NOT RETURN 
7:CLEAR RETURN (THE 15) 
3; TYPE A LINE FEED 

; RESTORE R3 


;; ADJUST THE STACK AND PUT ADDRESS OF THE 


3% FIRST ASCII] CHARACTER ON IT 
3 ;RETURN 

4 tho Ay ASCI1 CHAR. TO TYPE 
>; TERMINA 

7 RESERVE 3; BYTES FOR TTY INPUT 

7; CONTROL 


;; CONTROL ae 
3; CONTROL ‘'G"’ 


25-MAY-79 
TTY INPUT ROUTINE 
:* RDCHR 
;* RETURN HERE 
SRDCHR: MOV (SP) ,-(SP) 
MOV 4(SP),2(SP) 
CLR 4(SP) 
CLR -(SP) 
MOV #64$,-(SP) 
RTl 
643: 
1$: TST $STKCNT 
BFQ 1$ 
DEC STKCNT 
MOVB asTKQOUT,4(SP) 
INC $TKQOUT 
CMP 
BNE 
MOV 
2$: RTI 
> *THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
> *CALL: 
3* ROLIN 
ie RETURN HERE 
° 
SRDLIN: MOV R3,-(SP) 
3 MOV ASTTYIN,RS 
2$ CMP #STTYINGD. RS 
BLOS 4$ 
RDCHR 
MOVB (SP)+,(R3) 
10$ CMPB #177, (R3) 
BNE 3$ 
4$ TYPE ,$QUES 
BR 1$ 
3$ MOVB (R3),9% 
TYPE 9$ 
CMPB #15,(R3)+ 
BNE 23 
CLRB -1(R3) 
TYPE LF 
MOV (SP)+,R3 
MOV (SP),-(SP) 
MOV 4(SP),2(SP) 
MOV @STTYIN,G(SP) 
RTI 
9$: -BYTE 0O 
-BYTE 0O 
STTYIN: .BLKB 9. 
SCNTLC: .ASCIZ /*C/<15>«<12> 
SCNTLU: .ASCIZ /*U/<15>«12> 
SCNTLG: .ASCIZ /*G/<15><12> 
$MSWR: .ASCIZ <15><12>/SWR 
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10866 040646 020075 000 
10867 040651 040 047040 053505 SMNEW: .ASCIZ / NEW = / 
10868 040656 036440 000040 

9 ;FROM THE TTY 


$¢@ 
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D AN OCTAL NUMBER FROM THE TTY 
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ery .SBTTL READ AN OCTAL NUMBER FROM THE TTY 

10872 sp eeeeerererererrererererereeeerererereereerereeeteretteeeeeeAeee 

10873 s*THIS ROUTINE WILL READ AN OCT4#: (ASCII) NUMBER FROM THE TTY AND 

10874 :*CHANGE IT TO BINARY. 

10875 :eTHE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

10876 s*OCTAL DIGITS. IF AN ILLEGAL CHARACTER IS READ A ‘'?"’ WILL BE TYPED 

10877 S*FOLLOWED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST 

he $4 ab op BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN. 
3 *CALL: 

10880 3* RDOCT :;READ AN OCTAL NUMBER 

10881 :* RETURN HERE ::LOW ORDER BITS ARE ON TOP OF THE STACK 

very :* HIGH ORDER BITS ARE IN $HIOCT 

10884 040662 011646 S$RDOCT: MOV (SP) ,-(SP) : PROVIDE SPACE FOR THE 

10885 040664 016666 000004 000002 MOV 4(SP),2(SP) :: INPUT NUMBER 

10886 040672 010046 MOV RO,-(SP) :;PUSH RO ON STACK 

10887 040674 010146 MOV R1,-(SP) ::PUSH R1 ON STACK 

10888 040676 010246 MOV R2,-(SP) :;PUSH R2 ON STACK 

10889 040700 104411 1$: RDLIN :;READ AN ASCIZ LINE 

10890 040702 012600 MOV (SP)+,R0 ::GET ADDRESS OF 1ST CHARACTER 

10891 040704 010037 041010 MOV RO,5$ :;AND SAVE IT 

10892 040710 005001 CLR R1 >: CLEAR DATA WORD 

10893 040712 005002 CLR R2 

10894 040714 112046 2$: MOVB (RO)+,-(SP) ::PICKUP THIS CHARACTER 

10895 040716 001420 BEQ $ :;1f ZERO GET OUT 

10896 040720 122716 000060 CMPB #'0, (SP) ::MAKE SURE THIS CHARACTER 

10897 040724 003026 BGT ::1S AN OCTAL DIGIT 

10898 940726 122716 000067 CMPB #'7,(SP) 

10899 040732 002423 BLT 4% 

10900 040734 006301 ASL R1 732 

10901 049736 006102 ROL R2 

10902 940740 006301 ASL R1 72%4 

10903 040742 006102 ROL R2 

10904 040744 006301 ASL R1 3:*8 

10905 040746 006102 ROL R2 

10906 040750 042716 177770 BIC #*°C7,(SP) :;STRIP THE ASCI1 JUNK 

10907 040754 062601 ADD (SP)+,R1 +; ADD IN THIS DIGIT 

10908 040756 000756 Bh 2$ 3309 

10909 040760 005726 3$: TST (SP)+ CLEAN TERMINATOR FROM STACK 

10910 040762 010166 000012 MOV R1,12(SP) :;SAVE THE RESULT 

10911 040766 010237 041020 MOV R2,$HIOCT 

10912 040772 012602 MOV (SP)+,R2 ::POP STACK INTO R2 

10913 040774 012601 MOV (SP)+,R1 ::POP STACK INTO R1 

10914 040776 012600 MOV (SP)+,RO ::POP STACK INTO RO 

10915 041000 000002 RT] : ;RETURN 

10916 041002 005726 4$: TST (SP)+ ::CLEAN PARTIAL FROM STACK 

10917 041004 105010 CLRB (RO) ::SET A TERMINATOR 

10918 041006 104401 TYPE :; TYPE UP THRU THE BAD CHAR, 

10919 041010 000000 5$: -WORD 0 Lpaara eee 

10920 041012 104401 001222 TYPE ,SQUES pee ae © a8 

10921 041016 000730 BR 1$ >: TRY AGAIN 

10922 041020 000000 $HIOCT: .wORD 0 ::HIGH ORDER BITS GO HERE 
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ob 24 $i -SBTTL ERROR HANDLER ROUTINE 

10925 ppeeeeeerereeeeererereereerereretrrrrrereeeeereeeeeeAeeAeeRe Tees 
10926 z*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
10927 :*SAVE THE ERROR ITEM gn AND THE ADDRESS OF THE ERROR CALL 
10928 ;*AND GO TO SERRTYP ON ERRO 

10929 ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

10930 3*Swi5=1 HALT ON ERROR 

10931 :#SwW13= 1 INHIBIT ERROR TYPEOUTS 

10932 #SWi0=1 BELL ON ERROR 

10933 *SW09=1 LOOP ON ERROR 

10934 > *CALL 

+341 7* ERROR N ;;ERROR=EMT AND N=ERROR ITEM NUMBER 

10937 041022 SERROR: 

Hy 44» 041022 104407 CKSWR 3; TEST FOR CHANGE IN SOFT=SWR 
10940 041024 REGSAV: 

10941 041024 012737 177777 004632 MOV #-1,a#ERFLGS ;SET ERROR FLAG 

roaee 041032 REGSA1: 

10944 041032 105237 001103 7$: INCB SERFLG :3SET THE ERROR FLAG 

10945 041036 001775 BEQ 7$ :DON'T LET THE FLAG GO TO ZERO 
10946 041040 013777 001102 140uU/4 MOV STSTNM,@ADISPLAY >: DISPLAY TEST NUMBER AND ERROR FLAG 
10947 041046 032777 002000 140064 BIT #B1T10,aSwWR ;;BELL ON ERROR? 

10948 041054 001402 BEQ 1$ 7:NO - SKIP 

10949 041056 104401 001216 TYPE , SBELL RING BELL 

10950 041062 005237 001112 1$: INC SERTTL ; COUNT THE NUMBER OF ERRORS 
10951 041066 011637 001116 MOV (SP), SERRPC GET ADDRESS OF ERROR INSTRUCTION 
10952 041072 162737 000002 001116 SUB #2, SERRPC 

10953 041100 137737 140012 001114 MOVB @SERRPC,SITEMB ;STRIP AND SAVE THE ERROR ITEM CODE 
10954 041106 032777 020000 140024 BIT #B1T13,aSwR SKIP TYPEOUT IF SET 

10955 041114 001004 BNE 20% 7;SKIP TYPEOUTS 

10956 041116 004737 041172 JSR PC, SERRTYP ;:;G0 TO USER ERROR ROUTINE 

10957 041122 104401 001223 TYPE , SCRLF 

10958 041126 208: 

10959 041126 005777 140006 2$: TST aSwWR 7:HALT ON ERROR 

10960 041132 100002 BPL 3$ 7:SKIP IF CONTINUE 

10961 041134 000000 HALT 7:HALT ON ERROR! 

10962 041136 104407 CKSWR >; TEST FOR CHANGE IN SOFT=-SW&R 
10963 041140 032777 001000 137772 3%: BIT #B1109,a° IR ;;LOOP ON ERROR SWITCH SET? 

10964 041146 001402 BEQ 4% ;:BR IF NO 

10965 041150: 013716 001110 MOV SLPERR, (SP) 7;FUDGE RETURN FOR LOOPING 

10966 041154 005737 001214 4$: TST SESCAPE 7;CHECK FOR AN ESCAPE ADDRESS 
10967 041160 001402 BEQ 5$ 7;BR 1F NONE 

10968 041162 013716 001214 MOV SESCAPE,(SP) :;FUDGE RETURN ADDRESS FOR ESCAPE 
10969 041166 5$: 


10970 941166 000002 RT] >; RETURN 
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10971 

10972 ppeeeererrereeeeerrererererereeeeetererrAteeAKAKeKAAee RAAT AAA ATL 
10973 

Weare -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 

10976 s*THIS ROUTINE USES THE “ITEM CONTROL BYTE’ (SITEMB) TO DETERMINE WHICH 
10977 s*ERROR 1S TO BE REPORTED. 1T THEN OBTAINS, FROM THE ‘’ERROR TABLE" (SERRTB), 
10978 :*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
10979 :*1T 1S A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC. 

10980 :#WITH ONLY MINOR CHANGES 

10981 s*FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 

10982 7*ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
10983 :*SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 

10984 :*AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 

bed :*AND NOT THE ERROR MESSAGE AND HEADER. 

+} bt 041170 000000 PRITEM: 0 sPREVIOUS ITEM NO. LOCATION 

10989 041172 017746 137742 SERRTYP: MOV aSwR,-(SP) sGET SWITCH SETTING 

10990 041176 042716 177277 BIC #*C500, (SP) sKEEP ONLY SWITCH 8 AND 6 

10991 041202 022726 000100 CMP #SW06,(SP)+ :1S8 6 SET AND 8 RESET 

10992 041206 001001 BNE 1$ :1F NOT BRANCH 

10993 041210 000402 BR 2$ :BRANCH IF SW 6 IS SET AND 8 RESET 
10994 041212 000137 042132 18: JMP aaTYPERR ; JUMP IF SW 8 IS SET 

10995 :OR IF SW 8 IS RESET AND SW 6 IS RESET 
10996 041216 2$: 

10997 

10998 041216 104401 041224 TYPE ,65$ si: TYPE ASCIZ STRING 

10999 041222 000406 BR 648% ::GET OVER THE ASCI2Z 

11000 2365$: .ASCIZ <15><12>/RHWC = / 

11001 041240 64$: 

11002 041240 013746 002254 MOV aawC,-(SP) sGET READY TO TYPE RHWC CONTENTS 
11003 041244 104402 TYPOC 

11004 

11005 

11006 041246 104401 041254 TYPE ,o7$ si TYPE ASCIZ STRING 

11007 041252 000406 BR 66$ 3:GET OVER THE ASCIZ 

11008 27678: .ASCIZ <15><12>/RHBA = / 

11009 041270 66$: 

11010 041270 013746 002256 MOV a#BA,-(SP) :GET READY TO TYPE RHBA CONTENTS 
11011 041274 104402 TYPOC 

11012 

11013 

11014 041276 104401 041304 TYPE 09% 7; TYPE ASCIZ STRING 

11015 041302 000406 68% ::GET OVER THE ASCIZ 

11016 376098: ASCIZ <15><12>/RHCS2 = / 

11017 041320 68$: 

11018 041320 013746 002260 MOV a#CS$2,-(SP) :GET READY TO TYPE RHCS2 CONTENTS 
11019 041324 104402 TYPOC 

11020 

11021 

11022 041326 104401 041334 TYPE 71% s; TYPE ASCIZ STRING 

11023 041332 000406 BR 70% ::GET OVER THE ASCIZ 

11024 3:71$: .ASCIZ <15><12>/RHCS1 = / 

11025 041350 70$: 

11026 041350 013746 002262 MOV avCS1,-(SP) :GET READY TO TYPE RHCS1 CONTENTS 


ee 
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11027 041354 104402 TYPOC 

11028 

11029 

11030 041356 104401 041364 TYPE ,73$ si; TYPE ASCIZ STRING 

11031 041362 000406 BR 72% ::GET OVER THE ASCIZ 

11032 ; 3:73$: .ASCIZ <15><12>/RHDS1 = / 

11033 041400 723: 

11034 041400 013746 002304 MOV a#0S1,-(SP) 3GET READY TO TYPE RHDS1 CONTENTS 
11035 041404 104402 TYPOC 

11036 

11037 

11038 041406 104401 041414 TYPE 15% 3s; TYPE ASCIZ STRING 

11039 041412 000406 BR 74% 3;GET OVER THE ASCIZ 

11040 3375$: .ASCIZ <15><12>/RHERI = / 

11041 041430 74$: 

11042 041430 013746 002264 MOV a#ER1,-(SP) :GET READY TO TYPE RHER1 CONTENTS 
11043 041434 104402 TYPOC 

11044 

11045 

11046 041436 104401 041444 TYPE (1% si TYPE ASCIZ STRING 

11047 041442 000406 BR 76$ ::;GET OVER THE ASCIZ 

11048 3:77$: .ASCIZ <15><12>/RHER2 = / 

11049 041460 76$: 

11050 041460 013746 002270 MOV a#ER2,-(SP) :GET READY TO TYPE RHER2 CONTENTS 
11051 041464 104402 TYPOC 

11952 

11053 

11054 041466 104401 041474 TYPE 19% 7: TYPE ASC!IZ STRING 

11055 041472 000406 BR 78% ::GET OVER THE ASCI2Z 

11056 3:79$: .ASCIZ <15><12>/RHER3 = / 

11057 041510 78$: 

11058 041510 013746 002276 MOV Q#ER3,-(SP) :GET READY TO TYPE RHER3 CONTENTS 
11059 041514 104402 TYPOC 

11060 

11061 

11062 041516 104401 041524 TYPE 81% >; TYPE ASCIZ STRING 

11063 041522 000406 BR 80% ::GET OVER THE ASCIZ 

11064 2:81$: .ASCIZ <15><12>/RHDST = / 

11065 041540 80$: 

11066 041540 013746 002266 MOV a#DST,-(SP) :GET READY TO TYPE RHDST CONTENTS 
11067 061544 104402 TYPOC 

11068 

11069 

11070 041546 10447! 041554 TYPE 83% >: TYPE ASCIZ STRING 

11071 041552 000406 BR 82$ ::GET OVER THE ASCI12 

11072 3;83%: .ASCIZ <15><12>/RHCA = / 

11072 041570 82$: 

11074 041570 013746 002274 MOV aeCA,-(SP) ;GET READY TO TYPE RHCA CONTENTS 
11075 041574 104402 TYPOC 

11076 

*tul7 

11078 041576 104401 041604 TYPE 85% >; TYPE ASCIZ STRING 

11679 041602 000406 BR 84% ::GET OVER THE ASCIZ 

11080 3:85$: .ASCIZ <15><12>/RHAS = / 

11081 041620 84$: 

11082 041620 013746 002300 , MOV a#AS,-(SP) :GET READY TO TYPE RHAS CONTENTS 
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11083 041624 104402 TYPOC 

11084 

11085 

11086 041626 104401 041634 TYPE ,87$ 3; TYPE ASCIZ STRING 

11087 041632 000406 BR 86$ 3;GET OVER THE ASCIJZ 

11088 3;87$: .ASCIZ <15><12>/RHOF = / 

11089 041650 86$: 

11090 041650 013746 002272 MOV a#OF ,-(SP) ;GET READY TO TYPE RHOF CONTENTS 

11091 041654 104402 TYPOC 

11092 

11093 ae : 

11094 041656 104401 041664 TYPE 89% 7: TYPE ASCIZ STRING 

11095 041662 000406 . BR 88% ::GET OVER THE ASCIZ 

11096 3389$: .ASCIZ <15><12>/RHMR = / 

11097 041700 . 88$: 

11098 041700 013746 ‘002302 MOV aaMR,- (SP) :GET READY TO TYPE RHMR CONTENTS 

11099 041704 104402 TYPOC 

11100 

11101 

11102 041706 104401 041714 TYPE 91% tr; TYPE ASCIZ STRING af. 
11103 041712 000406 BR 90% ::GET OVER THE ASCIZ 4 
11104 3391$: .ASCIZ <15><12>/RHLA = / ; 
11105 041730 90$: So ae 
11106 041730 013746 002320 MOV @A#LA,-(SP) ;GET READY TO TYPE RHLA CONTENTS a “ 
11107 061734 104402 TYPOC ne AeA 
11108 4 
11109 

11110 041736 104401 041744 TYPE 93% s:TYPE ASCIZ STRING 

11111 041742 000406 BR 92% 3:GET OVER THE ASCIZ 

11112 33938: .ASCIZ <15><12>/RHCC = / 

11113 041760 G2$: 

11114 041760 013746 002316 MOV aacc,-(SP) :GET READY TO TYPE RHCC CONTENTS 

11115 041764 104402 TYPOC 

11116 

11117 

11118 041766 104401 041774 TYPE 95% sr: TYPE ASCIZ STRING 

11119 041772 000406 BR 94% 3;GET OVER THE ASCIZ 

11120 3:95$: .ASCIZ <15><12>/RHECI1 = / 

11121 042010 94$: 

11122. 042010 013746 002312 MOV @#EC1,-(SP) :GET READY 10 TYPE RHEC1 CONTENTS 

11123 042014 104402 TYPOC 

11124 

11125 

11126 042016 104401 042024 TYPE 97% >; TYPE ASCIZ STRING 

11127 042022 000406 BR 96$ +:GET OVER THE ASCIZ 

11128 23978: .ASCIZ <15><12>/RHEC2 = / 

11129 042040 96$: 

11130 042040 013746 002314 MOV a#EC2,-(SP) :GET READY TO TYPE RHEC2 CONTENTS 

11131 0420464 104402 TYPOC 

11132 

11133 | 
11134 042046 104401 042054 TYPE 99% 7; TYPE ASCIZ STRING 

11135 042052 000406 BR 98% 3:;GE1 OVER THE ASCIZ 

11136 ::99$: .ASCIZ <%5><12>/RHDT = / 

11137 042070 98$: 

11138 042070 013746 002306 MOV aedT,- (SP) :GET READY TO TYPE RHDT CONTENTS 
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11139 042074 104402 TYPOC 

11140 

11141 

113142 042076 104401 042104 TYPE 101% s; TYPE ASCIZ STRING 

11143 042102 000406 BR 100% 3;GET OVER THE ASCIZ 

11144 3731018: .ASCIZ <15><12>/RHSN = / 

11145 042120 1008: 

11146 042120 013746 002310 MOV @4SN,-(SP) ;GET READY TO TYPE RHSN CONTENTS 
ities 042124 104402 TYPOC 

He s4 042126 005037 041170 CLR a#PRITEM 7CLEAR PREVIOUS ERROR ITEM 

11151 042132 TYPERR: 

11152 042132 104401 001223 TYPE , SCRLF s "CARRIAGE RETURN’ & "'LINE FEED" 
11153 042136 010046 MOV RO,-(SP) :SAVE RO 

11154 042140 005000 CLR RO sPICKUP THE ITEM INDEX 

11155 042142 153700 001114 B1SB a4$1TEMB,RO 

11156 042146 001004 BNE 1$ :1f ITEM NUMBER IS ZERO, JUST 
11157 s TYPE THE PC OF THE ERROR 

11158 042150 013746 9001116 MOV SERRPC,-(SP) ;SAVE SERRPC FOR TYPEOUT 

11159 sERROR ADDRESS 

11160 042154 104402 TYPOC 3G0 TYPE--OCTAL ASCII(ALL DIGITS) 
11161 042156 000454 BR 10% :GET OUT 

11162 042160 005300 1$: DEC RO sADJUST THE INDEX SO THAT IT WILL 
11163 042162 006300 ASL RO ; WORK FOR THE ERROR TABLE 
11164 042164 006300 ASL RO 

11165 042166 006300 ASL RO 

11166 042170 062700 001226 ADD #SERRTB,RO ;FORM TABLE POINTER 

11167 042174 020037 041170 CMP RO, a#PRITEM ;WAS PREVIOUS ERROR SAME 

11168 042200 001002 BNE 13$ sBRANCH IF NOT 

11169 042202 022020 CMP (RO)+, (RO) + :POP RO OVER EM AND DH 

11170 042204 000420 BR 5$ 

11171 042206 010037 041170 13$: MOV RO, a#PRITEM :SAVE NEW ERROR ITEM 

11172 042212 012037 042222 MOV (RO)+,2$ :PICKUP ‘ERROR MESSAGE'’ POINTER 
11173 042216 001404 BEQ 3$ :SKIP TYPEOUT IF NO POINTER 

11174 042220 104401 TYPE : TYPE THE ‘ERROR MESSAGE" 

11175 042222 000000 2$: -WORD 0 : "ERROR MESSAGE'' POINTER GOES HERE 
11176 042224 104401 001223 TYPE  SCRLF s "CARRIAGE RETURN'' & “‘LINE FEED" 
11177 042230 012037 042240 3$: MOV (RO)+,4$ :PICKUP ‘DATA HEADER’ POINTER 
11178 042234 001404 BEQ 5$ sSKIP TYPEOUT IF 0 

11179 042236 104401 TYPE sTYPE THE “DATA HEADER” 

11180 042240 000000 4$: -WORD 0 :'"DATA HEADER'' POINTER GOES HERE 
11181 042242 104401 001223 TYPE , SCRLF : "CARRIAGE RETURN’ & “‘LINE FEED" 
11182 042246 010146 5$: MOV R1,-(SP) ;SAVE R1 

11183 042250 012001 MOV (RO)+,R1 :PICKUP "DATA TABLE’ POINTER 
11184 042252 001415 BEQ 9$ sBR IF NO DATA TO BE TYPED 

11185 042254 012000 MOV (RO)+,RO :PICKUP ‘DATA FORMAT’ POINTER 
11186 042256 105720 6$: TSTB (RO)+ :‘OCTAL'’ OR ‘DECIMAL’ 

11187 042260 001003 BNE 7$ :BR IF DECIMAL 

11188 042262 013146 MOV a(R1)+,-(SP) sSAVE a(R1)+ FOR TYPEOUT 

11189 042264 104402 TYPOC :GO TYPE=-OCTAL ASCII(ALL DIGITS) 
11190 042266 000402 BR 8$ 

11191 042270 7$: 

11192 042270 013146 MOV a(R1)+,-(SP) sSAVE a(R1)+ FOR TYPEOUT 

11193 042272 104405 TYPDS 360 TYPE--DECIMAL ASCI1] WITH SIGN 
11194 042274 005711 8$: TST (R1) 31S THERE ANOTHER NUMBER? 
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11195 042276 001403 BEQ 9$ ;BR IF NO 

11196 0423500 104401 0423%4 TYPE , 118 sTYPE TWO(2) SPACES 

ies 042304 000764 BR 6$ ; LOOP 

11199 042306 012601 9$: MOV (SP)+,R1 ;RESTORE RI 

11200 042310 012600 10$: MOV (SP)+,RO : CARRIAGE RETURN’ & “LINE FEED" 

11201 042312 000207 RTS PC ;RETUR 

11202 042314 020040 000 118: ASCIZ / / wot?) SPACES 

11203 042320 -EVEN 
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11204 

Sos -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 

11207 ppeeeeeereerereerererererereerereerrereeenereeeneeeeeeeeeeTee ee 
11208 :*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
11209 ;*OCTAL (ASCII) NUMBER AND TYPE IT. 

atSit eer oe HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

> *CALL: 

11212 ie MOV NUM, -(SP) ;;NUMBER TO BE TYPED 

11213 7* TYPOS 3;CALL FOR TYPEOUT 

11214 hd -BYTE N ;;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
11215 3° -BYTE ™ 73M=1 OR 0 

11216 7@ i31=TYPE LEADING ZEROS 
siSta “be ;;0=SUPPRESS LEADING ZEROS 
11219 7 *$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
11220 ;*$TYPOS OR $STYPOC 

11221 :*CALL: 

11222 3* MOV NUM, = (SP) ;;NUMBER TO BE TYPED 

See he TYPON ;;CALL FOR TYPEOUT 

.* 

11225 i *STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

11226 >*CALL: 

11227 bid MOV NUM ,-(SP) ;;NUMBER TO BE TYPED 

ats :* TYPOC ;;CALL FOR TYPEOUT 

11230 042320 017646 000000 $TYPOS: MOV a(SP),-(SP) ;:PICKUP THE MODE 

11231 042324 116637 000001 042543 MOVB 1(SP), SOF ILL ;;LOAD ZERO FILL SWITCH 

11232 042332 112637 042545 MOVB (SP)+,S$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 

11233 042336 062716 000002 ADD #2, (SP) ;;ADJUST RETURN ADDRESS 

11234 042342 000406 BR $TYPON 

11235 042344 112737 000001 0425435 $TYPOC: MOVB #1,$OFILL ;;SET THE ZERO FILL SWITCH 

11236 042352 112737 000006 042545 MOVB #6,$0MODE+1 7;SET FOR SIX(6) DIGITS 

11237 042360 112737 000005 042542 S$TYPON: MOVB #5, S0CNT :;SET THE ITERATION COUNT 

11238 042366 010346 MOV R3,-(SP) 7;SAVE R3 

11239 042370 010446 MOV R4,-(SP) 7: SAVE R4 

11240 042372 010546 MOV R5,-(SP) 7: SAVE RS 

11241 042374 113704 042545 MOVB SOMODE*1, R4 :;GET THE NUMBER OF DIGITS TO TYPE 
11242 042400 005404 NEG 

11243 042402 062704 000006 ADD 16.RG 7;SUBTRACT IT FOR MAX. ALLOWED 
11244 042406 110437 042544 MOVB R4 ,SOMODE 7;SAVE IT FOR USE 

11245 042412 113704 042543 MOVB SOFILL,R4 3:GET THE ZERO FILL SWITCH 

11246 042416 016605 000012 MOV 12¢SP),R5 ;;PICKUP THE INPUT NUMBER 

11247 042422 005003 CLR R3 ;;CLEAR THE OUTPUT WORD 

11248 042424 006105 1$: ROL R5 7;ROTATE MSB INTO ‘'C"’ 

11249 042426 000404 BR 3$ ;:G0 DO MSB 

11250 042430 006105 2$: ROL R5 7;FORM THIS DIGIT 

11251 042432 006105 ROL R5 

11252 042434 006105 ROL R5 

11253 042436 010503 MOV R5,R3 

11254 042440 006103 3$: ROL R3 7:GET LSB OF THIS DIGIT 

11255 042442 105337 042544 DECB SOMODE 7; TYPE THIS DIGIT? 

11256 042446 100016 BPL 7$ ;;BR IF NO 

11257 042450 042703 177770 BIC #177770,R3 ;;GET RID OF JUNK 

11258 042454 001002 BNE 4$ 7: TEST FOR 0 

11259 042456 005704 TS? R4 7; SUPPRESS THIS 0? 
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11260 042460 


042544 


28-MAR-79 0 


001403 


000060 


042542 


000002 000004 


4$: 
5$: 


7$: 


6$: 


8$: 
SOCNT: 


SOFILL: 
SOMODE : 


25-MAY-79 
BEQ 5$ 
INC R4 
BIS #'0,R3 


"BYTE 
“WORD 


SP), “4 (SP) 
P)+,(SP) 
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BINARY TO OCTAL (ASCII) AND TYPE 


7;BR IF YES 

:;DON'T SUPPRESS ANYMORE 0'S 
> :MAKE THIS DIGIT ASCII 
>;MAKE ASCII IF NOT ALREADY 
>:SAVE FOR TYPING 


3:GO TYPE 
B 


;; COUNT 


i DIGIT 


Y 
;;BR IF MORE TO DO 
3;BR IF DONE 


3; INSURE LAST DIGIT ISN*T A BLANK 


;;G0 DO THE LAST DIGIT 


; RESTORE 
; RESTORE 


R5 
R4 


7 RESTORE R3 


7;SET THE 


7 ;RETURN 
: ; STORAGE 


STACK FOR RETURNING 


FOR ASCII DIGIT 


7; TERMINATOR FOR TYPE ROUTINE 
;;OCTAL DIGIT COUNTER 

;;ZERO FILL SWITCH 

;;NUMBER OF DIGITS TO TYPE 


SEQ 0257 


———— 
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eee .SBTTL TRAP DECODER 

284 ;,eeteeeerererereeererererererereteteeeeeneteeeeeatereneenerereneee 

285 s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘'TRAP’’ INSTRUCTION 

286 :*AND USE 11 TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

287 *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 

te :*GO TO THAT ROUTINE. 

290 042546 010046 STRAP: MOV RO,-(SP) :;SAVE RO 

291 042550 016600 000002 MOV 2(SP),RO 3;GET TRAP ADDRESS 

292 042554 005740 TST -(RO) eet at BY 2 

293 042556 111000 MOVB (RO) ,RO :GET RIGHT BYTE OF TRAP 

294 042560 006300 ASL RO POSITION FOR INDEXING 

295 042562 016000 042602 MOV STRPAD(RO),RO «INDEX TO TABLE 

35 042566 000200 RTS RO ;;G0 TO ROUTINE 

298 

+44 >:THIS 1S USE TO HANDLE THE ‘'GETPRI'’ MACRO 

301 042570 011646 $TRAP2: MOV (SP) ,-(SP) ::MOVE THE PC DOWN 

302 042572 016666 000004 000002 MOV 4(SP),2(SP) ::MOVE THE PSW DOWN 

te 042600 000002 RTI : RESTORE THE PSW 

a .SBTTL TRAP TABLE 

307 :*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

eg :*BY THE ‘'TRAP’' INSTRUCTION. 

aT ; ROUTINE 

312 042602 042570 $TRPAD: .WORD $TRAP2 

313 042604 037322 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

314 042606 042344 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
315 042610 042320 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
316 042612 042360 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
ae 042614 037076 $TYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
ths 042616 040140 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 

321 042620 040050 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOFT-SWR 

322 042622 040412 SRDCHR ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
323 042624 040502 SRDLIN ;;CALLSROLIN TRAP#+11(104411) TTY TYPEIN STRING ROUTINE 

324 042626 040662 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 
325 042630 034016 WAIT.1T 3; CALL=WAT TRAP+13(104413) DONT ADD ABMVE THIS TRAP 
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: 1338 -SBTTL POWER DOWN AND UP ROUTINES 

11328 Ppeeeeeeeererereeeeeeeereeeeeeeeeeetereeeeeteteeteneneneerereeene 
11329 ;P9WER DOWN ROUTINE 

11330 042632 012737 042776 000024 S$PWKON: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST UP 

11331 042640 612737 000340 000026 MOV #340 ,aM#PWRVEC+2 ;;PRIO:7 

11332 042646 010046 MOV RO,-(SP) 3;PUSH RO ON STACK 

11333 042650 010146 MOV R1,-(SP) 3;PUSH R1 ON STACK 

11334 042652 010246 MOV R2,-(SP) 3;PUSH R2 ON STACK 

11335 042654 010346 MOV R3,-(SP) 3;PUSH R3 ON STACK 

11336 042656 010446 MOV R4,-(SP) 3;PUSH R4& ON STACK 

11337 042660 010546 MOV R5,-(SP) 3;PUSH RS ON STACK 

11338 042662 017746 136252 MOV aSwR,-(SP) 3;PUSH @SWR ON STACK 

11339 042666 010637 043002 MOV SP, SSAVR6 3;SAVE SP 

11340 042672 012737 042704 000024 MOV #SPWRUP ,A#PWRVEC ;;SET UP VECTOR 

11341 042700 000000 HALT 

BF 042702 000776 BR 72 3:HANG UP 

11344 p_eeeeereeeereereeeeretererereettretere eK TERK KATATE Ree TATE 
11345 ;POWER UP ROUTINE 

11346 042704 012737 042776 000024 S$PWRUP: MOV #SILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 

11347 042712 013706 043002 MOV SSAVR6,SP 3:GET SP 

11348 042716 005037 043002 CLR SSAVR6 ;;WAIT LOOP FOR THE TTY 

11349 042722 005237 043002 1$: INC SSAVR6 >; WAIT FOR THE INC 

11350 042726 001375 BNE 1$ ::0F WORD 

11351 042730 012677 136204 : MOV (SP)+,aSwWR :;POP STACK INTO aSWR 

11352 042734 012605 MOV (SP)+,R5 3;POP STACK INTO R5 

11353 042736 012604 — : : MOV (SP)+,R4 3;POP STACK INTO R4 

11354 042740 012603 MOV (SP)+,R3 7;POP STACK INTO R3 

11355 042742 012602 MOV (SP)+,R2 >;POP STACK INTO R2 

11356 042744 012601 MOV (SP)+,R1 3;POP STACK INTO R1 

11357 042746 012600 MOV (SP)+,RO 3;POP STACK INTO RO 

11358 042750 012737 042632 000024 MOV #SPWRON, O#PWRVEC ;;SET UP THE POWER DOWN VECTOR 
11359 042756 012737 000340 000026 MOV #340, ,a#PWRVEC+2 ;;PRIO:7 

11360 042764 104401 TYPE ;REPORT THE POWER FAILURE 

11361 042766 043004 $PWRMG: .WORD SPOWER >;POWER FAIL MESSAGE POINTER 
11362 042770 012716 MOV (PC)+, (SP) ;;RESTART AT BEGIN 

11363 042772 004712 SPWRAD: .WORD BEGIN ;;RESTART ADDRESS 

11364 042774 000002 RT] 

11365 042776 000000 $ILLUP: HALT 3; THE POWER UP SEQUENCE WAS STARTED 
11366 043000 000776 BR 72 :; BEFORE THE POWER DOWN WAS COMPLETE 
11367 043002 000000 SSAVR6: 0 7;PUT THE SP HERE 

11368 043004 005015 047520 042527 S$POWER: .ASCIZ <15><12>''POWER"’ 

11369 043012 000122 

11370 -EVEN 

11371 
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11373 pereenereerrererereeerteteeeeeteeeeterteeeeeeeeeeeeeeeeeeereeereereeAes 


75 TERROR AND MESSAGE TABLE CONDIMENTS 


° 
77 ;eeererereeeerereterererereteeeteeteeeteteeeteeereretaeeeeeteretereeeee 


WWnw 
~ 
o 


~ 
0 


043014 050122 032060 042040 EMI: -ASCIZ /RPOS DID NOT INTERRUPT/ 


WAWAWanw 
G2 Oo Co OO CO Co 
ViFWN—o 

So 
. 
w 
o 
~ 
~m 
i=) 
* 
~ 
St 
a 
a 
o 
> 
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o 
F 
oO 
oO 
w 
~m 
> 
a 
~N 


Ww 
fo] 
o 
o 
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Ww 
o 
* 
Ww 
-_ 
_ 
=" 
So 
uw 
Mm 
_ 
_ 
o 
oO 
w 
— 
= 
Oo 
w 


EM2: ~-ASCIZ /INTERRUPT ENABLE BIT DOWN BUT EXPECTED BIT DID NOT SET/ 


Ww 
02 09 Co 
oon 
ooo 
at a 
WUWw 
ooo 
oun 
soo 
ooo 
rw 
son 
www 
ont 
mor 
ooo 
mrew 
oon 
— —+ 
morn 
fnmeo 
ooo 
enue 
NOM 
wee 
oor 
suo 


043122 047516 020124 042523 


032060 morse EM3: -ASCIZ /RPO4 DID NOT INTERRUPT WHEN EXPECTED BIT DID SET/ 


WAAL AIA AAA 
oOodvooooovono 
NOU EWN oO 
oo o 
ss = 
ww ww 
— —, 
rw -_ 
orm 
oo Oo 
wu Nm 
No o 
—— _ 
—™— ™Nm 
—N - 
Oo Oo 
= = 
~ = 
So w 
= Oo 
o - 
Oo 
Nm 
So 
—s 
Oo 
= 


Og a ig ee ek ee td i gs ot a ot 
oo 
So 
> 
lw 
oe 
a 
Co 
Oo 
+ 
. 
Pa 
Oo 
So 
w 
Nm 
— 
— 
o 
oa 
w 
— 
— 
So 
w 


gt a“ st ot ot ot ot os ot os 


ww 
oo 
oo 
oO 
x 
w 
— 
w 
S 
oO 
w 
Nm 
uw 
~m 
~m 
So 
“ 
Nm 
— 
Nm 
So 
o 
uw 
w 
P 
> 
o 


11402 043176 041040 052111 042040 
11403 043204 042111 051440 052105 


11405 043213 105 050130 041505 EM4: -ASCIZ /EXPECTED BIT DID SET BUT TIME IS IN ERROR - TIME IN 10 MICROSEC. DECIMA 


043314 042504 044503 040515 
042040 EMS: -ASCIZ /RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 


Pt et a De ee et ee ee ee ee 
MORO ee so ss 
me —OOOnNOwWlwr 

o 

Pa 

w 

Ww 

™Nm 

™m 

o 

So 

i=) 

— 

= 

a 


423 043362 047111 040440 geet oe 
EM6: -ASCIZ /LOADING RHER1 FOR ALL UNITS DID NOT SET ANY RHAS BITS/ 


427 043412 020061 047506 020 
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11428 043420 046101 020114 047125 
11429 043426 052111 020123 044504 
11430 043434 020104 047516 020124 
11431 043442 042523 020124 047101 
11432 043450 020131 044122 051501 
11433 043456 041040 052111 000125 
11434 043464 047516 020116 054105 EM7: -ASCIZ /NON EXISTENT REGISTER, PROGRAM ABORTED./ 
11435 043472 051511 042524 052116 
11436 043500 051040 043505 051511 
11437 043506 042524 026122 050040 
11438 043514 047522 051107 046501 


3 
11439 043522 040440 047502 052122 
11441 043534 052123 050117 042520 EM10: .ASCIZ /STOPPED DRIVE HAS MOL BIT IN RHDS1 SET/ 


11446 043572 042110 030523 051440 
11447 043600 052105 000 


11449 043603 127 052111 020110 EM11: -ASCIZ /WITH SPINDLE POWERED DOWN RHCS2 SHOULD ONLY HAVE UNIT NO: AND IR SET/ 


11459 043676 042116 044440 020122 
11461 043710 043101 042524 020122 EMI: sASCIZ /AFTER SPINDLE POWERED UP, NO PACK ACKN. RHDS1 SHOULD HAVE MOL=1, vv=0/ 


11470 043776 053101 020105 047515 
11471 044004 036514 026061 053040 


11473 044016 044527 044124 051440 EM15: -ASCIZ /41TH SPINDLE POWERED, NO INTIALIZE, RHCS! S#°..D HAVE GO=0, DvA=1, RDY= 


11478 044054 044514 042532 020054 
11479 044062 044122 051503 020061 
11480 044070 044123 052517 042114 
11481 044076 044040 053101 020105 
11482 044104 047507 030075 020054 
11483 044112 053104 036501 026061 
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11484 044120 051040 054504 
11485 044126 vag #7 042511 


03 
03 

11487 044135 101 052106 ? EM14: -ASCIZ /AFTER SPINDLE POWERED UP RHCC SHOULD BE=0/ 
05 


NNO feo NN 


11493 044200 wel 042502 030 


11495 044207 120 041501 020 EM15: «ASCII /PACK ACKNOWLEDGE COMMAND CAUSED AN ERROR/<15><12> 


YVInNw VWWVMWONOWw WU 


N 
— Oe SU or 
o—— 


1500 044244 042105 040440 020116 
501 044252 wae: 047522 006522 


503 044261 107 047517 020104 -ASCI1Z /GOOD DATA 1S BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 
504 044266 040504 040524 044440 
044274 020123 042502 047506 
041440 046517 
044310 040515 042116 020054 
044316 042522 020103 040504 
044324 040524 044440 020123 
044332 043101 042524 020122 
044340 047503 046515 047101 


044350 047516 047455 020120 EMI6: -ASCI1 /NO-OP COMMAND CAUSED AN ERROR/<15><12> 
044356 047503 046515 047101 


ooo°0oco 
ow 
So 
~ 
* 
Ww 
oO 
™~m 
o 
$F 
Nm 
wu 
™m 
™Nm 


044400 051105 047522 006522 
044407 107 047517 020104 -ASCIZ /GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


044466 047503 046515 047 


044476 051104 053111 020 EM17: eASCII1 /DRIVE CLEAR COMMAND CAUSED AN ERROR/<15><12> 


SARWNMHSOONOANEWUN $56 OBNOUNRWN—OSON 
So 
e 
, > 
w 
So 
Oo 
> 
~ 
w 
wm 
~m 
oS 
Pa 
—_ 
= 
P 
oS 
o 
& 
o 
w 
— 
GN 


{ 047522 006522 

07 047517 020104 -ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/ 
04 

11 

10 


POP PUPP FI IO TU 
WA ANINI AI WA PR PO POPU PIMP PEN 2 OO es ee es 


Winn 
Oo@o~ 
So 
= 
Fs 
w 
w 
o 
ooo 
Phar pe 
NWO 


044564 046125 020104 
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044572 042502 020054 
044600 020105 040504 


6 f EM20: -ASCI1 /READ-IN COMMAND CAUSED AN ERROR/<15><12> 


644662 047101 042440 051122 
044674 047507 042117 042040 -ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONTENTS AFTER COMMAND/ 


044770 020122 047503 046515 
044776 047101 000104 


045002 044122 051503 Rr ores EM21: -ASCIZ /RHCS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


045040 040527 gees 047111 


030523 EM22: -ASCIZ /RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 
4 


EM23: -ASCI1 /UNLOAD COMMAND CAUSED AN ERROR/<15><12> 


045160 042440 051122 051 


87 045170 047507 042117 042 -ASCI1Z /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REGISTER CONT. AFTER COMMAND/ 


045250 051105 041440 
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1596 045256 027124 040440 052106 
045264 051105 041440 ae 


043106 EET EM24:  .ASCI1 /OFFSET COMMAND CAUSED AN ERROR/<15><12> 


051105 047522 
012 


1 047517 020104 -ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 
045344 040504 040524 043440 


oe 
oo 


045432 047503 046515 047101 
045442 042522 052524 ont EM25: -ASCI1 /RETURN TO CENTER LINE COMMAND CAUSED AN ERROR/<15><12> 


-ASCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVES REG. CONT. AFTER COMMAND/ 


EM26: -ASCIZ /500 OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


WAAL AIR N PI NNN NNN @ 2 SS OO Q 
NO WEWN $0 ONO UEWN $0 OONOUVFWN OO OONO US WN OO OONGYVFWNR— 
o 
& 
w 
w 
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oS 
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oOo 
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ee ee ee ee ee ee ee ee ee ee ee 
re a ee eet ee 


MO se Mr —w— 


2 

5 

5 

1 020105 EM27: -ASCI1 /WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 
1 5 

6 

1 

5 


51 045744 051 044440 


AAAAAOO 
DPA 
OCONOUVEW 


eo 
,° a 
-o 


ga 


CZRJJDO, hag “ 
CZRJID.P11 


045752 


046204 
046212 





046627 " mu 





MACY11 30A(1052) 
POWER DOWN AND UP ROUTINES 


042520 


006505 
020104 


051105 
044505 









047101 
020105 
5 


000122 
044040 


042524 






m 3 
10:48 PAGE 246 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/WRITE HEADER AND DATA CHANGED WRITE FROM BUFFER/ 


/READ HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/WRITE HEADER DATA FOLLOWED BY READ HEADER AND DATA CAUSED DATA ERROR/ 
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046434 044040 040505 042504 


046522 052101 020101 051105 

046530 047522 000122 

046534 042522 042101 042040 €EM33: ASCII] /READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> c 

046542 052101 020101 040503 Md 

046550 051525 042105 044440 

046556 050115 047522 042520 

046564 020122 042522 044507 an 
123 051105 041440 1 le, 

046600 040510 043516 006505 | 

046606 012 

046607 107 047517 020104 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 

046614 040504 040524 043440 

046622 053111 051505 053440 

046630 040510 020124 044123 


046644 020105 et 051105 
046655 122 041505 044505 -ASCIZ /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ * 


41 046726 047503 046515 047101 

42 046734 000104 

43 046736 042522 042101 042040 €EM34: .ASCIZ /READ DATA INCORRECT/ 

44 046744 052101 020101 047111 

45 046752 047503 051122 041505 

46 046760 000124 

47 046762 051127 052111 020105 &M35: -ASCI1 /WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 
48 046770 040504 040524 041440 

49 046776 046517 040515 042116 

50 047004 041440 052501 042523 

751 047012 020104 046511 051120 

752 047020 050117 051105 051040 

1753 047026 043505 051511 042524 

754 047034 020122 044103 047101 

755 047042 042507 005015 

756 047046 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
757 047054 052101 020101 044507 

758 047062 042526 020123 044127 

759 047070 052101 051440 047510 

760 047076 046125 020104 042502 

761 047104 052040 042510 042522 

762 047112 005015 

763 047114 042522 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND / 
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047122 042040 052101 





047503 046515 
052111 ahh EM36: eASCIZ = /WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


78 047244 020115 at 043106 
80 047255 23 042505 ee EM37: -ASCI1 /. EK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


hn 047333 107 047517 020104 «ASCII /GOOD DATA GiVES WHAT SHOULD BE THERE/<15><12> 


7 

7 

rae 047370 020105 mars 051105 

795 047401 122 041505 044505 -ASC1Z /RECEIVED DATA GIVES REGISTER CONTENTS AFTER SEEK COMMAND / 


EM4O: -ASCII] /WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


020104 -ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


047576 052517 042114 041040 
047604 020105 044124 051105 
047612 006505 012 
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047507 


042116 
041517 


043516 
047517 


020104 
042524 
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044505 


006505 
020104 
043440 
053440 
044123 
041040 
051105 


044505 


052517 
050115 
0 


042040 


POWER DOWN AND UP ROUTINES SEQ 0248 

-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 
4 

EM41: «ASCII /LOCKING OUT WRITE BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE / 
-ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 

EM42: eASCI] /ATTEMPTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 
-ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
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CZRJJOO, RPO4/S5/6 FCTNL 
1 28 79 POWER DOWN AND UP ROUTINES SEQ 0249 


CT 
CZRJJD.P1 -MAR-79 08 
050304 052101 02 

05 


-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE/ 
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5 
052111 047111 EM43: -ASCI1 /WRITING WITH WRITES LOCKED OUT CHANGED DISK DATA/<15><12> 
4 


fo J 
oO 


050512 020113 040504 040524 
042117 042040 -ASCI1 /GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15 
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050616 042513 020104 052517 


012 
050627 127 051501 040440 -ASCI1 /WAS ATTEMPTED/<15><12> 
050634 052124 046505 052120 


050646 042522 042503 053111 -ASCI1 /RECEIVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


et ae et ot ot ot ot 1 OO 


050720 051105 053440 044522 
050732 044527 044124 053440 eASCIZ = /WITH WRITE LOCKED OUT WAS ATTEMPTED/ 


042524 000104 
041101 044514 EM44: -ASCI] /ENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE /<\ 


ee yg a ig ee is ee et at ot oe 
ee et cs ek et et at ot oe 
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11932 051004 043516 053440 0445 


042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


052040 042510 042522 


042522 042503 053111 -ASCI1] /RECEIVED DATA GIVES REGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 
951 051160 042105 042040 052101 
952 051166 020101 044507 042526 
953 051174 020123 042522 044507 
954 051202 052123 051105 041440 
955 051210 047117 042524 052116 
956 051216 020123 043101 042524 
957 051224 020122 051127 052111 
958 051232 020105 047514 045503 
959 051240 041040 ae 047524 


961 051251 105 040516 046102 -ASCIZ /ENABLED WRITES/ 
962 051256 042105 053440 044522 


964 051270 051124 047101 043123 EM45: -ASCI1 /TRANSFERRING ON LAST BLOCK = CYLINDER 410. = 814., SECTOR 21, /<15><12> 
| 
| 


973 051356 047524 020122 030462 
975 051370 051124 041501 020113 -ASCII1 /TRACK 18, CAUSED IMPROPER REGISTER CHANGE/<15><12> 


041440 
006505 


5 
6 
7 020104 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
4 043440 
5 055440 
4 044123 
042114 041040 
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022 


051500 
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020105 
006505 
122 


052040 


044124 
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031040 
041501 


041040 
051105 


041505 
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-. 
MACY11 30A(1052) 25-MAY-79 10:48 PAGE 252 
POWER DOWN AND UP ROUTINES SEQ 0251 


051105 
044505 


006505 


044505 
040504 


EM46: 


EM47: 


-ASCIZ 


-ASCII 


eASCIZ 


-ASCI1 


ASCII 


-ASCIZ 


/RECEILVED DATA GIVES REGISTEP CONTENTS AFTER TRANSFER/ 


/DATA READ FROM LAST BLOCK = C¥I'NDER G10. = 814., SECTOR 21,/<15><12> 


/TRACK 18, IS IN ERROR/ 


/TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /<15><12> 


/REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATS GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 
CZRJJO.P11 


So 
oO 


GOnNfoons 


052414 
052422 


052423 


052656 


28-MAR-79 


042506 


044440 


08:52 


020104 
042510 


020104 


042510 
042503 


020123 


MACY11 g eget 


POWER DOWN AND UP ROUTINES SEQ 0252 
: -ASCI1 /TRANSFERRING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<15><12> 


043123 EMSO 
04 


051117 
042040 


047101 
042040 


042522 
053111 


044507 


EM51: 
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ASCII 


eASCIZ 


ASCII 


-ASCII 


-ASCIZ 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 


/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE /<15><1e> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 
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“MAR-79 08:52 POWER DOWN AND UP ROUTINES SEQ 0253 
100 052664 042526 000 


ra bees EMS2: -ASCI1 /WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER CHANGE/<15><1 


052772 047507 042117 042040 -ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


053030 052040 042510 042522 
053040 042522 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 


0 
053141 1 040505 Be) ae EM53: -ASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


053212 020104 040504 040524 
053220 042440 051122 051117 


053227 101 052124 046505 EM54: -ASCII] /ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 
053234 052120 047111 020107 


117 042040 -ASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
020101 044507 
123 044127 


1 
: 047101 042507 
7 
1 
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051440 
020104 
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047522 
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047101 


042040 
044507 
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042502 
042522 


053111 
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eASCIZ 


-ASCII 


-ASCI1 


-ASCI1 


-ASCIZ 


-ASCI1 


/RECELVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROR/<15><12> 


/CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR 1S INCORRECT/<15><12> 
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25-MAY-79 19:48 PAGE 256 


POWER DOWN AND UP ROUTINES SEQ 0255 

-ASCI1 /WORD NO. 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12> 
«ASCIZ = /BE CHANGED/ 

EMS7: «ASCI1 /ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12> 
-ASCI1 /IMPROPER REGISTER CHANGE/<15><12> 
-ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
-ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/ 

EM60: -ASCI1 /ATTEMPTING TO MODIFY REGISTER DURING AN OPERATION CAUSED IMPROPER/<15>< 


K 4 
CZRJJDO, RPOG/5/6 FCTNL CTRLR2 MACY11 30A(1052) 25-MAY-79 10:48 PAGE 257 
CZRJJD.P11 28-MAR-79 08:52 POWER DOWN AND UP ROUTINES SEQ 0256 


68 het oe weed 042520 006522 
0545¢7 122 043505 051511 -ASCI1 /REGISTER CHANGE. GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


054646 052040 042510 042522 
0 054656 042522 042503 053111 -ASCII] /RECEIVED DATA GIVES REGISTER CONTENTS AFTER OPERATION WAS ATTEMPTED/<15 


042524 
292 054765 115 042117 044506 -ASCIZ /MODFING REG GIVES ADDRESS OF REGISTER BEING MODIFIED WHICH CAUSED ERROR 


03 055064 042440 051122 051117 
000 


06 055075 104 053105 041511 EM61: -ASCIZ /DEVICE NOT AVAILABLE BEFORE COMMAND WAS TO BE GiVEN/ 


ooo 
~N 
PPI 


on ent SS OOO 


2 

5 

1 

; 00 

? 030523 EM65: eASCIZ /RHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 
4 

3 

6 

5 

1 


05 044440 
055222 020116 051105 047522 


055232 042522 040503 044514 EM64: -ASCI1 /RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


a ig a ig ee ig ee eet ed i 8 et as ot 
Nm 
Nm 
0 
uw 
i] 
wu 
w 
So 
So 
5S 
o 
5S 
So 
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= 
o 
o 
5S 
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— 
oS 
rx 
o 
S 
~m 
w 
~Nm 
~m 


AEE EAI I 
Wn —O O@wo VU lwn—-O0OW 

So 

w 

ww 

— 

w 

™~ 

ae 

~m 

Nm 

So 

7 

™~m 

wae 


TOTO Ry wt et et es et wt ot ot oe 
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CZRJJDO, RPO4/5/6 FCTNL LR 
52 POWER DOWN AND UP ROUTINES SEQ 0257 
10 
51 


CT 
CZRJJD.P11 28-MAR-79 08: 
05 


rr 
nO 
oo 
wu 
ww 
rr 
ow 
aor a 
So 
fr 
oO 
A 
oO 
-> 
o 
= 
oOo 
w 
oO 
w 
oooo°oo 


wren 
owen 


047517 020104 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


WWW 
Wl w 
o 
w 
w 
Ww 
Pd 
So 
—— = OO —$ Onno 


WW 
No 
oo 
ww 
ww 
IW 
iv 
so 
ooo 
mus 
on 
—w" 
o 

w 

o 

= 

= 

—_ 

~m 

= 


051105 
044505 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


WAAWN NAIA AA AINA 
Ww ~Nm 
Ne uw 


¥Se¥ 

Po? oP oe a a a ie, 
WU Wr—O OW 
oooooo°0coe 
WMMiVVMIvVwnuwu 
WMI 
SERRE SW 
wnr—-ooneoo 
Onfoonunr 
oooooco oOo 
WVfFUwuWlf EF © 
—_ = Oru ao 
VWI 
NrmO—ONNRNO 
wef onwu 
oooo°oc[eo 
Pa eh a el 
Onn —Wwo— 
Pa wof—u" 
a Ns roo 
So fSooru 
oooo°oo 

WEMmLuWle 

NMNOWWO 
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oono—-o 

Ouran 


WAWwnw 
* 
~ 
o 
ww 
w 
= 
™ 
™ 
o 
™ 
o 
uw 
_ 
ww 
So 
r 
™Nm 
=® 
-— 
o 


000 
1 051105 €M65: .ASCIZ /INTERRUPT FAILING/ 
055456 052522 052120 043040 
055464 044501 044514 043516 


040505 pity EM66: -ASCI1 /HEADER AND DATA COMMAND FOR HEAD SELECTION TEST/<15><12> 


, a ee 
ono 
So 
uw 
w 
S 
uw 
_ 
So 
w 
~m 
= 
— 
o 


WAW 
Panna 
Fwnr oo 

oo 
wal, 
ww 
ss 
SN 
wr 

So 

So 


u 
uw 
So 
w 
uw 
uw 
— 
= 
So 
~~ 
o 
uw 
— 
~N 
o 
™~ 
oS 
w 
— 
uw 
o 
= 
Nm 
— 
at 
o 


055544 020116 042524 052125 


055554 040503 051525 042105 «ASCII /CAUSED ERROR/<15><12> 
055562 042440 051122 051117 


055572 044122 051504 020124 -ASCI1] /RHDST GIVES WHAT TRACK WAS BEING WRITTEN OR READ/<15><12> 


POPPI PPP NPP PPO PIPPI POPS PE PI NPOPYE PY POPE PO PEP PEPE Po Po po fen frorfe ff frr 
S Oouwwmuww 
ooono 
oS 
w 
w 
w 
Ww 
o 
o 
= 
Nm 
w 
—- 
= 
So 
w 
~m 
st 
oO 
Ww 
Oo 
> 
~ 
uw 
= 
el 


wa 
o 
DONG VEWN —OOOnNGO WF wun— 
oS So 
w 
w 
o 
Ww 
o 
™m 
a 
o 
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™~ 
—_ 
o 
w 
o 
$F 
™~ 
Pa 
> 
Oo 


& 


055644 020122 042522 042101 


055654 047117 041440 046131 -ASCIZ /ON CYLINDER 0, SECTOR 0/ 
55662 047111 042504 020122 


eg ig ee is ee ks ee et et et at ot et 


MPOPE MPEP Po MPEP Py fo fororry 


WWMM 
tee i SR en Be ee ee) 


55 0 
055704 042522 042101 aeeree EM67: -ASCI1 /READ HEADER AND DATA ERROR IN HEAD SELECTION TEST/<12><15> 
055720 047101 020104 040504 


Mm 4 
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040524 042440 051122 


051505 
052123 -ASCI1 /FIRST FOUR WORD NUMBERS ARE HEADER/<12><15> 


005122 
056033 127 O5t4i7 020104 -ASCI11 /WORD NUMBERS 5 TO 260 ARE DATA WORDS/<12><15> 


98 056070 020101 047527 042122 


015 
12400 056101 111 020116 040504 -ASCIZ /IN DATA WORDS BITS 4,5,6,7,8 GIVE TRACK NUMBER/ 
12401 056106 040524 053440 051117 


12407 056152 046525 042502 000122 


12409 056160 042522 042101 0440460 EM70: .ASCII /READ HEADER AND DATA ERROR IN/<15><12> 
12410 056166 040505 042504 020122 
12411 056174 047101 020104 040504 
12412 056202 040524 042440 051122 
2413 056210 051117 044440 006516 


415 056217 104 043111 042506 -ASCII] /DIFFERENCE LINE TEST/<15><12> 
056224 042522 041516 020105 





056245 127 051117 020104 -ASCI1 /WORD NOS 1-4 GIVE HEADER/<15><12> 


1 
1 
1 
1 
1 
1 
1 
acess 056266 044040 saad +f 042504 ; 

12424 056277 127 051117 020104 -ASCIZ /WORD NOS 5-260 GIVE DATA WHICH IS THE CYLINDER ADDRESS/ 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


2431 056350 047111 042504 020122 
2432 056356 042101 051104 05150 
1 
1 


2434 056366 047506 041522 047 


5 
111 EM71: ASCII /FORCING OP] BY 3 INDEX PULSES/<15><12> 
2455 056374 020107 050117 020111 


BeSeod 


N 4 
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CZRJJDO, RPOG/S/6 FCTNI. CTRLR2 

CZRJID.P11 28-MAR-79 08:52 POWER DOWN AND UP ROUTINES SEQ 0259 
12436 056402 054502 031440 044440 

12437 056410 042116 054105 050040 

12438 056416 046125 042523 006525 

12439 056424 012 

12440 056425 103 tats § 042523 -ASCI1 /CAUSED IMPROPER REGISTER CHANGE/<15><12> 
12441 056432 0201046 046531 051120 

12442 056446 050117 051105 051040 

12443 898446 043505 051511 042524 

12444 C%m654 020122 044103 047101 

12445 056462 042507 005015 

12446 056466 047507 042117 042040 -ASCI1 /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
12447 056474 052101 020101 044507 

12448 056502 042526 020123 044127 

12449 056510 052101 051440 047510 


12451 056524 052040 042510 042522 
12453 056534 042522 042503 053111 -ASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/ 


000 : 
12463 056627 124 tea ote EM72: .ASCI1 /THERE WAS A SETUP ERROR DURING MULTIPLE WRITE/<15><12> 


12464 056634 053440 1501 04044 

12465 056642 051440 052105 050125 
12466 056650 042440 051122 051117 
12467 056656 042040 051125 047111 
12468 056664 020107 052515 052114 
12469 056672 050111 042514 053440 


12471 056706 042510 042101 051105 LASCI1 /HEADER AND DATA COMMANDS'.RESULTING IN AN ABORT/<15><12> 
12472 056714 040440 042116 042040 Ls 


12473 056722 052101 020101 047505 ict 


12479 056766 043117 052040 044510 ~ LASCIL /OF THIS *OPI* TEST./<15><12><15><12> 


i 7 
-ASCIZ /TO TROUBLE. SHOOT SETUP ERROR, LOOP ON THIS TEST/ ay 
ae) 


M — MMNMWOM—hwr 


12490 057066 020125 042524 05 ] 
12491 057074 000 
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12492 057075 122 040505 020106 EM73: .ASCII /READ HEADER AND DATA FOR 11960 WORDS /<15><12> 
12493 057102 042510 042101 051105 

12494 057110 040440 042116 042040 

12495 057116 052101 020101 047506 

124696 057124 020122 030461 033071 

12497 057132 020060 047527 042122 

12498 057140 020125 005015 

12499 057144 044124 052101 044440 -ASCI1 /THAT 1S 46 SECTORS /<15><12> 


12500 057152 020122 033064 051440 
2501 057160 041505 047524 051522 


2 012 
503. 057171 124 040510 020124 -ASCIZ /THAT 1S OVER 3 INDEX PULSES CAUSED AN ERROR/ 
504 057176 051511 047440 042526 
057204 020122 020063 047111 
052520 
057220 051514 051505 041440 
08 057226 052501 042523 020104 
057234 047101 042440 051122 


057245 122 040505 bbe: EM74: -ASCI1 /READ HEADER AND DATA FOR 11960 WORDS /<15><12> 


ya 

ooo 

NOW 
o 
vi 
~ 
nm 
— 
~ 
So 
& 
~ 
yw 
=) 
ys 
=) 
mr 
°o 
ew 
Ww 
o 


057302 020060 047527 042122 
057314 044124 052101 044440 -ASCI] /THAT IS 46 SECTORS, THAT IS OVER 3 INDEX /<15><12> 


et et at ot 8 I OE 
OOnOUSWN—O”O 
o 
uw 
~“ 
~N 
Co 
o 
So 
w 
Nm 
— 
Oo 
_ 
Oo 
nN 
o 
——- 
So 
— 
Oo 
- 
™N 
Ww 
Oo 
oa 


057360 042116 054105 006440 


057367 120 046125 042523 -ASCIZ /PULSES CAUSED OPI TO SET/ 
057374 020123 040503 051525 
057402 042105 047440 044520 
057410 052040 020117 042523 


2 
057420 050040 047522 051107 NOUSE: .ASCIZ / PROGRAMMABLE-DRIVE WILL NOT BE USED/ 
057426 046501 040515 046 1 
| 
4 
0 


MRMnrl~—fofnofnonorer 
OONOWSWN—O 

So 

w 

N 

w 

o 

o 

So 

— 

tw 


1 
1 
057434 026505 051104 tae 
057450 047040 052117 0410 
057456 020105 051525 0421 
057464 000 


i 
4 
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5 


eh ek ee eg ea eg ee ee a ed ed ig ed td td 
POP PVANINYV ANG PV MPD NPY NSPS PY PG PIPPIN PO PENN N Po Pu PO MNP PU Po fo fons ftw 


PAAAAAMAAVFAAAMAAMAAA IU UU 


WAAA AW 
NOWE WMO 
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™N 
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w 
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12538 
12539 057465 106 052101 046101 CPHALT: .ASCI! /FATAL ERROR - SEE DOCUMENT LISTING/<15><12> 
2540 057472 042440 051122 051117 
541 057500 026440 051440 042505 
542 057506 042040 041517 046525 
543 057514 047105 020124 044514 
544 057522 052123 047111 006507 
545 057530 12 
546 057531 040 005015 177607 eASCII / £€15>«<12><207><377><377><207><377><377><207><377><377> 
547 057536 103777 177777 177607 
548 057544 377 
549 057545 124 042510 041440 -ASCI1 /THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 
550 057552 047117 051124 046117 
551 057560 042514 020122 051117 
552 057566 042040 053105 041511 
040510 020123 


556 057616 020054 047514 052123 


558 057626 051047 040505 054504 -ASCI] /"READY', BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 
559 057634 026047 041040 041505 
560 057642 046517 020105 047125 
561 057650 053101 044501 040514 
562 057656 046102 026105 047440 
563 057664 020122 040510 020123 
564 057672 052123 052101 051525 
2565 057700 041040 052111 006525 


0 044103 eASCIZ /WHICH CANNOT BE CLEARED/ 
1 047516 
i 





041440 
042105 


ww 
IN 
-o 
o 
w 
™~N 
~N 
Ww 
o 
o 
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N 
uw 
—o 
re 
So 
w 
— 
a 


057736 000 


75 057737 120 020103 020040 DxI1: ASCII] /PC TEST WAIT BIT REG REG RHCS1/<15><12> 


80 057774 020040 051040 043505 


MMP PM PM pO MP NMrerr 
WAAAA AI 
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w 
— 
w 
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oe 
So 
So 
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o 





060016 051040 041510 030523 
060026 020040 020040 020040 ~ASCIZ / NO PC EXPCTD ADDRESS CONTENT CONTENT / 


PAA AAA AAT 
ped + pet te} tt of 
Mm—O OOnNG VF wr 

Oo 

o 

So 

oS 
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™m 

oS 
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oS 

So 

Oo 
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060100 052116 047105 020124 
593 060106 047503 052116 047105 
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ZRJJD.P 


060114 


060526 
060534 


060536 


060574 


004524 
20 


000123 


041520 
020040 
020040 
046111 
047505 
020124 


040524 
040504 


020103 


051104 


020040 
042524 
020040 
047111 
052116 
047503 


MACY11 ght id 


020040 


047111 
020040 


040524 
020040 


051505 


020040 
3 


052116 


25-MAY-79 


D5 
10:48 PAGE 263 


POWER DOWN AND UP ROUTINES 


DH4: 


DHS: 


DH6: 


DH10: 


-ASCII 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCI1 


-ASCIZ 


eASCIZ 


-ASCI1 


/PC 


/PC 


/PC 


/PC 


/PC 


TEST 


NO 


TEST 


NO 


TEST 


NO 


TEST 


TEST 


SRepeSES= SHEE ences 


SEQ 0262 


WAIT BIT REG TIME IN/<15><12> 


PC EXPCTD ADDRESS 10 MSEC/ 


REG GOOD RECEIVED/<15><12> 
ADDRESS DATA DATA/ 


REG RECEIVED/<15><12> 


ADDRESS DATA/ 


REG ADDRESS/ 


FAILING CONTENT CONTENT CONTENT CONTENT/<15><12> 


a. 
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12650 060602 047105 020124 047503 
12651 060610 052116 047105 020124 
12652 060616 047503 sia 047105 


12654 060627 40 020040 020040 eASCIZ / NO REG. RHCS1 RHCS2 RHDPS1  RHERI/ 


12662 060706 051040 042510 030522 
12663 060714 000 


12665 060715 120 020103 020040 Dx26: -ASCII1 = /PC TEST CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF /<15><12 
12666 060722 020040 052040 051505 


12676 061016 020040 020040 020040 -ASCIZ / NO RHCS1 RHCS2 RHDS! RHERIT RHER2 RHERS / 


12685 061104 020040 044122 051105 
1262: 061112 004463 000 


12688 061115 120 020103 020040 DH30: «ASCII /PC TEST WORD GOOD BAD/<15><12> 
12689 061122 020040 052040 051505 
12690 061130 020124 020040 053440 
12691 061136 051117 020104 020040 
12692 061144 043440 047517 020104 
12693 061152 0200460 041040 042101 


12695 061162 020040 020040 020040 sAS°12 # NO NO DATA DATA/ 


12700 061220 020040 040504 040524 
12701 061226 000 


2703 061227 120 020103 0200460 DwH51: .ASCII /PC TES REG GOOD RECVD ILLEGL/<15><12> 
2706 061234 020040 052040 051505 
2705 061242 020124 020040 051040 


; 3 
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12706 061250 043505 020040 020040 
061256 043440 047517 020104 
061264 020040 051040 041505 
061272 042126 020040 044440 
061300 ~~ 043505 006514 


061307 040 020040 020040 eASCIZ / NO ADDRESS DATA DATA FUNCTN/ 


061360 047125 052103 000116 


7 

8 

9 

0 

1 

2 

3 

4 

5 

6 

7 

8 

0 

1 061366 041520 020040 020040 DH60: .ASCII /PC TEST REG GOOD RECVD MODFING/<15><12> 
2 061374 020040 042524 052123 

3 061402 020040 020040 042522 

4 061410 020107 020040 020040 

: 061416 047507 042117 020040 

7 
8 
9 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 


061440 eet 047111 006507 
061447 040 020040 020040 eASCIZ / NO ADDRESS DATA DATA REG/ 


061504 020040 042040 052101 
061512 020101 020040 051040 


000 
061523 120 020103 020040 DH61: .ASCII /PC TEST PC OF RHDS1/<15><12> 
061530 020040 052040 051505 
061536 020124 020040 050040 
061544 020103 043117 020011 
061552 woe 051504 006461 


0 
1 
5 
4 061561 040 020040 020040 eASCIZ / NO JSR WAS/ 
: 061566 020040 047040 020117 

7 

8 


000 
061615 120 020103 asoree DH62: -ASCI1 /PC PC OF RHCS1/<15><12> 


9 

0 

2 

3 061644 020040 020040 020040 ASCIZ = / JSR WAS/ 
4 061652 020040 051512 020122 

: 061660 020040 020040 040527 
7 

8 

9 

0 

1 


061676 041520 020040 020040 On65: -ASCII /PC TEST CONT CONT CONT/<15>«<12> 
061676 020040 042524 052123 
061704 020040 020040 047503 
061712 052116 020040 020040 
061720 047503 052116 020040 


a ee ee ee ee ee iii ee ee 
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JD.P 


061726 


062100 
062102 


062204 


062210 


062352 


020040 


000062 
041520 


041527 
062210 


001116 
033550 


001116 


047503 
020040 


044122 
020040 


044122 


020040 


004504 


004504 
002260 


004504 


MACY11 30A(1052) 


052116 
020040 


051504 
020040 
3 


051503 


020040 
3 


044122 


033544 
001126 


004504 


004500 
001200 


001122 
002304 


002262 
002264 
000000 
004502 


DHO66: 


DH72: 


EVEN 
DTI: 


DT4: 


DTS: 
DT6: 
DT?7: 
D110: 


D126: 


D130: 


6 5 
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eASCIZ 


eASCIZ 


eASCI2 


. WORD 


. WORD 


«WORD 
. WORD 
«WORD 
. WORD 


«WORD 


. WORD 


/ NO RHCS1 RHAS RHDS1/ 

/PC TEST RHDST RHER1 RHER2 RHER3 
/PC TEST RHCSI RHCS2 RHDS1 RHDST 
SERRPC,TSTINM,WAITPC,WALTBT ,WAITRE, $BDDAT,CS1,0 


SERRPC,TSTNM,TSTNM,WALTPC ,WAITBT ,WAITRE ,SBDDAT WAI TIM,0 


SERRPC,TSTNM,REGADR ,SGDDAT ,SBDDAT .0 
SERRPC, TSTINM,REGADR,SBDDAT ,0 
SERRPC,TSTNM,STMP1 0 

SERRPC,TSTNM, SBDADR,CS1,CS2,DS1,ER1,0 


SERRPC,TSTNM,CS1,CS2,DS1,ER1,ER2,ER3,0 


SERRPC,TSTNM,ERWORD ,SGDDAT ,SBDDAT ,0 


RHC S1 


RHCA 


SEQ 0265 


RHCS2/ 


RHER1 RHWC / 
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CZRJJO.P11 


062360 


062526 
062530 


062570 
062571 
062574 
062577 


062601 
062604 


062606 
062611 


062614 


062642 


28-MAR-79 08:52 


001124 


001126 
004504 
001126 


004504 
001126 


004504 


000000 
004500 
002364 


004500 
001122 


033350 
033350 
002262 


002254 
000 
000 


000 
001 


000 


H 5 
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POWER DOWN AND UP ROUTINES 


D151: 


D160: 


D161: 
DT6e: 
D165: 
D166: 


D172: 


« WORD 


«WORD 


. WORD 
«WORD 
- WORD 
«WORD 


- WORD 


-BYTE 


-BYTE 


.BYTE 
BYTE 


-BYTE 
-BYTE 


-BYTE 


-BYTE 


BYTE 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


SERRPC,TSTNM,REGADR ,SGDDAT ,SBDDAT, ILLEGL ,0 
SERRPC,TSTNM,REGADR ,SGDDAT , SBDDAT , $BDADR,0 


SERRPC, TSTNM,PLJSR, $BDADR ,0 
SERRPC,TSTNM,PCUSR,$BDADR,0 
SERRPC,TSTNM,CS1,AS,051,0 
SERRPC,TSTINM,DST,ER1,ER2,ER3,C0S1,CS82,0 


SERRPC,TSTNM,CS1,CS2,0S1,DST,CA,ER1,WC,0 


0.0,0,0.0,0,0 
0,0,0,0,0,1,0 


0,0,0,0.0 
0,0,0,0 


0,0,0 
0,C.0.0.0,0,0 
0,0,0,0,0,0,0,0 


0.0,0,0,0 
0,0,0,0,0,0 


0,0,0,0,0,0 
0,0,0,0 

0.0.0.0 

0,0,0,0,0 
0,0,0,0,0,0,0,0,0 








SEQ 0266 


’ 
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CZRJJD.P11 


12874 
5 


062645 


062650 
062653 
062656 


28-MAR-79 08:52 


000 
000 
000 
000 
062662 


000001 


POWER DOWN AND UP ROUTINES 
000 
000 DF/72: BYTE 0,0,0,0,0,0,0,0.0 
000 
000 
-EVEN 
END 


SEQ 0267 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 


CZRJJD.P11 28-PAR-79 08:52 
ACL = 000040 18248 
ACU = _100000 17848 
ADDMOD 000204 7988 
ADTIMO 036450 10363 
AOE = 001000 17014 
AS 002300 19034 
ATA == 100000 16894 
7510 
ATABLE 004566 1972a 
ATTENT 004644 tt 
6 
ATO) =. =-—«€000001 17214 
AT1 == 000002 1722a 
AT2 = 000004 17234 
ATS = = 000010 1724a 
A14 = 000020 17254 
ATS == 000040 17268 
AT6 ==: 000100 17278 
A117 = =_: 000200 17288 
Alé == 000400 16644 
Al7—s_ =: 001000 16654 
BA 002256 1892a 
BAI = 000010 16304 
BASECH 035460 79 
BEGIN 004712 797 
BEGINI 004662 801 
BEGIN2 004676 799 
B110 = 000001 757" 
B11T00 = 000001 747m 
B1101 = 000002 7468 
B1T02 = 000004 7454 
B1T03 = 000010 7448 
B1T04 = 000020 7438 
B11T05 = 000040 7428 
1106 = 000100 7418 
B11T07 = 000200 740# 
B1108 = 000400 7394 
B11T09 = 001000 7384 
B1T1 = 000002 756" 
B1110 = 002000 7378 
B1T11 = 004000 7364 
B1T12 = 010000 735a 
B1T13 = 020000 734m 
B11T14 = 040000 7338 
B1115 = 100000 732e 
BIT2 = 000004 755a 
B1T3 = 000010 7544 
B1T4 = 000020 7534 
BITS = 000040 752a 
B1T6 = 900100 751# 
B11? = 000200 750# 
B1T8 = 000400 749m 
B1T9 = 001000 7488 
BPTVEC= 000014 7644 
CA 02274 19014 
CC 002316 1910# 


MACY11 30A 
CR 


12834 


11363 


7491 


10480 
10947 
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4804 5697 5836 6195 


9822 


4434 
8322 


5368 5512 


4610 4806 5379 5525 5710 
8504 


7793 


10963 


6447 


5847 


6902 


6201 


SEQ 0268 


7193 


6481 


| 
nn 


CZRJJDO, RPOG/S/6 FCIN 


CZRJJO.P11 
CHECK 033352 
CHECKC 033410 
CHECKT 033374 
CHREG 034204 
CKSWR = 104407 
CLAREA 033164 
CLOISK 033314 
CLR = 000040 
COMPAR 035342 
COMREG 034312 
CPHALT 057465 
CR = 000015 
CRLF = 000200 
CSF = 000002 
csu— = 000010 
CS! 002262 
CS2 002260 
DB 002252 
DOCK = 100000 
DCL = 000100 
DCLEAR 002330 
DDISP = 177570 
E1 = 000040 
DFF20 = 000002 
DFFS = 000001 
OF 1 062530 
DF10 062562 
DF 26 062571 
DF 39 062601 
DF4 062537 
DFS 062546 


062606 


L CTRLR 
9 08:52 
2742 


2 MACY11 30A 
CR 


1504 
128614 


8637 
12834 
12811 


—Onoeoow—u 


—> —. 


—N WP 
—— SS SSS Cow 


nue oOo a ted oan dee een 


8770+ 
12814 


128398 
1055 


1247 

1091 

1269 
128458 


8771 
12831 


128504 
1308 


8880+ 
12834 
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8881 


9046 


9162 


12539" 


11026 


1545 


1151 
1395 


12799 


| 
1 
1 


556 


162 
414 


12811 


128588 


1185 
1426 


12814 


CZRJJD.P11 


062553 
0 


060260 


061227 


062252 


062366 


062504 


CZRJJDO, RPOG/5/6 FCTNL CTRLR2 
28-MAR-79 08:52 


933 


—+4 —2 —s 
MOUUIF SE HLOWSWwOO--O 


— +» 


—» —+ —*+ —» — 
DWOWwW—-@BNuC OWONwwe ON-- 


VINWAWWUIN OO WOO FWO 


— 


MACY11 x 


ed aed aed ced ee ee eed ed 
—M rrr rrrhr — 
Oo 







1604 

951 
1031 
1228 
1072 


1256 
1505 


1603 


126128 


127830 
10501* 


127998 
1054 


1246 
1090 


1268 
12805# 


12834# 
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126448 
1306 1340 


10946* 
4779 4982 
4709 4761 


12811 12814 


128114 

1307 1341 
1104 1116 
1282 1294 








CZRJJOO, RPO4/5/6 FCTNL 
CZRJJD.P11 7 


004000 
000100 
004000 


002312 


054172 


ss ss 


— —s) — 


— ss se 
PPB FAW OWA PPP PY OM NNN NN — — Om ee ee Oe ee ee 
PMO OWS VW FSWN — ODN AVF WN O ODE NAVIES WNWNO 
—ONUDNOOWWUE WW DOW — CQOWW VN OOWONUS WW" — & 


—s + —) —s 4 + + — 
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aoe 


44s 


478 
96" 


i ss st es 


NNN NNSA OWA A OAMINABDNDUNADMNA OU ES SSE SEW 
™N 
Ww 
ca 


et ed ee et ce cet ce ce ed ce ae ed ed cd et ed ed ed ed ed et 8 a ak a td a oe od ed od ed od ed od et dd td od et et ed 
—OOeWOFWOO® 
Of SMNOUWMO 
RBRBRBRBZBZBRBZEBVEEZ 


ME Po PsP PoP Po fy — fo — Os? ss? Os es es ees ees ees ees es 
Mr —-— S$ —OOfrowowouowwowe 


2789 


3388 


2192* 


3721 


2234+ 


4770 


CROSS REFERENCE TABLE -- USER SYMBOLS 


4973 
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CZRJJD.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0272 

EM6 043376 983 114258 

EM60 054464 1454 122584 

EM61 055073 1471 1479 123064 

EM63 055157 1488 12315# 

EM64 055232 1496 = 123234 

EM6S 055451 1509 9123484 

EM66 055473 1520 12352a 

EM67 055704 1536 3=—-123778 

EM? 043464 993 11434" 

EM70 056160 1547 = 124094 

EM71 056366 1559) =-12434a 

EM72 056627 1573 = 124634 

EM73 057075 1593 12492# 

EM74 057245 1600 125114 

ERFLGS 004632 19934 8429" 10941* 

ERR = 040000 16884 4113 4452 4596 5370 5514 5699 5838 6197 6449 6904 7195 7512 
7809 8320 8490 9044 9160 

ERRVEC= 000004 760# 2057 2058* 2069" 2194" 2202* 2236* 10463 10464* 10466* 10469* 

ERWORD 004502 1954# 10323* 10329* 12817 

ERI 002264 1897# 8870* 8871 11042 12811 12814 12831 12834 

ER2 002270 18994 11050 12814 12831 

ERS 002276 19024 11058 12814 12831 

EXT? = 000001 17514 

ExT10 = 000010 17548 

ExT2 = 000002 17520 

ExT20 = 000020 17554 

ExT4 = 000004 17534 

ExT40 = 000040 17564 

FEN = 000200 17774 

FER = 000020 16964 6920 7207 

FILL 034250 10094# 

FILLRE 033216 2999 3004 3023 3155 3160 3179 3410 3415 3420 3565 3570 3575 3580 
3811 3816 3821 3826 3831 3997 4002 4007 4131 4276 4281 4286 4380 
4384 4400 4405 4429 4572 4577 4598 4995 5000 5005 5144 5149 5154 
6157 6162 6185 6214 6219 6226 6231 6423 6428 6453 6466 6473 6624 
6629 $634 6856 6860 6869 6874 6906 7027 7032 7037 7197 7500 7525 
7530 7822 7827 7832 7965 7971 7976 8136 8141 8146 8151 8350 8356 
8492 97308 

FINACC 004564 19664 9881" 

FINALA 004562 19654 %9682* 

FIRST 004634 19954 2081 2118* 

FLHEAD 033140 2881 2893 3062 3284 3302 3549 3795 3920 4198 4484 4876 4898 5230 


FMT22 = 010000 1798# 2932 2933 2934 2952 2953 2954 3091 3092 3093 3110 3111 3112 


FUTA 002322 1921# 8216 
GNS me hoe: U 779 2089 2093 2098 2102 2106 2111 2115 2168 2211 2226 2232 2508 


CZRJIDO, RPOG/S/6 FCTNL CTRLR2 


CZRJJO.P11 


GO 000001 


000010 
104406 
000200 
002000 


a 
—t 
ny 
< 
» 
nun 


000400 
000011 
015440 


= 
4 
o 
nun 


002000 
000100 


— 

> 

mn 
“ou 


ILf == 000001 
ILLEGL 002364 
000002 
000020 
000100 


1XE = 004000 


_ 
o 
ad 
< 
m 
oO 
nun 


KIPDR2= 


28-MAR-79 08:52 


2334 
2569 
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3377" 
39 


7213 


10018 


7214 


8261 


4 4 —4+ —> 
OnNMA ——OOnrmw 


8272 


SEQ 0273 


CZRJJDO, RPOS/5/6 FCTNL CTRLR2 
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KIPOR3= 172306 8294 
KIPDR4= 172310 304 
KIPDRS= 172312 8314 
KIPDR6= 172314 832" 
KIPDR7= 172316 8334 
LA 002320 19114 
LBT = 002000 16844 
LF = 000012 6714 
LT. = 000000 27788 
3545 
43694 
5344 
64148 
7361 
8297" 
9152 
MCLK = 000002 1712a 
MCPE = 020000 16684 
MHS = 001000 17794 
MINX = 000004 17134 
MMVEC = 000250 815# 
MOL = 010000 16864 
MPE = 000400 1635 
MR 002302 1904a 
MRD = 000020 17154 
MSE = 000020 1774a 
MSTCK = 000010 17144 
MWR = 000040 17164 
MxF == 001000 16364 
NED = 010000 16398 
NEM = 004000 16384 
NHS = 002000 17804 
NOPERA 002322 1922e 
NOPUSH 004624 1986# 
NOUNIT 004620 19824 
NOUSE 057420 2391 
NUNIT 004622 1984a 
ocyL = 100000 1827m 
OF 002272 1900# 
OFREV = 000200 17954 
OFSET 033300 9777m 
OFSETC 002354 1935a 
OFSTVL 004510 19614 
OF 100 = 000004 1790# 
OF 200 = 000010 17914 
OF25 = 000001 17884 
OF400 = 000020 1792a 
OF50 = 000002 1789" 
OF 800 = 000040 17934 
OPERSE 934450 10194# 
OP! = 020000 1705# 
OR = 000200 1634# 
8520 
PAR = 000010 16958 
PCJSR 033550 98014 


PCLBUF 002246 1880# 
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8630 
92614 9266 9355# 


8448 8449 8460 
2603 2619 2798 


8260 8270 8279 


2022* 2026* 2029+ 
2362" 2419" 2425 


2431" 2432+ 


10684 = 10767 
8871 
4393 4415 6181 


9803* 9804" 9809 
9905* 


6199 
31458 
3 


8345 


2431 


6895 


9810+ 


8 
9409" 


8464 
3722 


2500* 


6922 


12825 


9822 

3269" 3274 
3791 3988" 
4759# 4764 


6845# 50 
705 77798 
88608 865 
9414 9488# 
8465 8468 
4779 4982 
9602* 
6923 7042 
12827 


33778 
399 


7043 


7952 


7213 


8123 


7214 


9823 


8260 


SEQ 0274 


35408 


91478 


8270 
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PCLCSR 002244 18794 9879" 9906+ 

PCLCTR 002250 18814 9880 

PGE = 002000 16378 

PIP) = 020000 16878 

PIRQ = 177772 6778 

PIRQVE= 000240 7714 

PKACK 002360 1937# 2746 2767 2788 

PLU == 020000 17838 

PRE = 000020 18234 

PRITEM 041170 2160* 9601* 10196* 10987# 11149" 11167 11171# 

PROG = 001000 16834 

PRO = 000000 694m 

PR1 == 000040 695# 

PR2 = 000100 6964 

PRS == 000140 6978 

PRG == 000200 6984 

PRS = = 000240 6994 

PR6 = = 000300 700# 

PR7 = 000340 7014 

PS = 177776 674m 675 2073* 2653* 2698 2733" 3520" 3769" 9575" 10195* 

PSEL = 002000 16664 

Psu =_:- 000001 18208 

PSW == 177776 675# 

PUTREG 035236 8639 8773 8873 8883 9042 9158 10144 10252# 

PWRVEC= 000024 766M = =20468% «=2049* §=11330* 11331" 11340" 11346" 11358" 113598 

RA 000200 797# = =10412 

ROCHR = 104410 10842 =11322a 

ROLIN = 104411 10889 113234 

RDOCT = 104412 2170 §=10222 10233 10360 10382 113248 

RDY = 000200 16634 2654 2667 2699 2789 3147 3271 3379 3542 3721 3763 3788 3990 
4099 4269 4371 4565 4770 4964 5113 5973 6150 6416 6617 6775 6847 
7020 7171 7358 7479 7702 7781 7934 8105 8299 8627 8761 8862 9033 
9149 9357 9490 9815 

READAT 002346 1932#@ 3094 3113 3136 4063 4088 5779 5804 6985 7010 7136 7161 7435 
7461 7897 7922 7942 8064 8089 8113 

READIN 002362 1938" 

RECALI 002326 19244 3262 4697 8941 9253 9401 

REFOR 002350 19334 3491 3755 4528 4554 Heth 5101 5121 5636 5660 6359 6378 6406 
6583 6607 8834 8848 9122 9139 9458 9480 

REGADR 004590 1953#@ 2277 2795* 2804* 33948 3403* 3735" 3749% 4776* 4785" 4979% 4988" 5128+ 
5137" 7949" 7958* 8120* 8129" 10153* 12805 12807 12819 12822 

REGSAV 041024 10940" 

REGSA1 041032 2192 = 10942# 

REINTO 003434 1947# 2907 3087 3106 3162 3209 3321 3468 3572 3610 3687 3818 3862 
3933 4056 4164 4211 4509 4521 4579 4642 4899 4907 5036 5056 5069 
5151 5186 5616 5629 5760 5772 6325 6352 6371 6425 6512 6557 6576 
6631 6674 6966 6978 7029 7075 7117 7129 7243 7417 7428 7527 7564 
ik 44 7973 8003 8046 8057 8143 8178 8827 9080 9115 9179 9419 9451 

RELEAS 002332 1926# 

RESVEC= 000010 761" 

RETCL 002356 1936# 

RHAS 002216 18614 2269 8098+ 

RHBA 002174 18494 3005 3416 3571 4003 


* 8551 8409+ 
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CZRJJDO, RPOG/5/6 FCTNL CTRLR 
CZRJID.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0276 
RHBAE 002240 18734 2222 
RHCA 002212 18594 3017 3173 6215 6227 6467 6474 8431* 9750" 9768" 10279 
RHCC 002234 18684 3832 6220 6232 7487 7789 8152 9881 10258 
RHCS1 002200 1854# 2746" 27708 2984" 3139" 3146 3265* 3369* 3378 3508* 3533* 3541 3576 
3664* 3729" 3787 3822 3982* 3989 4091* 4098 4116 4261* 4268 4363* 4370 
4421 4557* 4564 4604 4700* 4753* 4793 4955* 4963 5104* 5112 5334 5360 
5478* 5504 5595*  5663* 5689 5807* 5822 5966* 5972 6143" 6149 6168 6409* 


8 
8760 8770 8851* 8861 8880 8944* 9019" 9032 9142* 9148 9256* 3 
9404* 9483" 9489 9752* 9769" 9778 9782 9933 9945 10018 10041 10288* 10355 


RHCS2 002176 1850# 2244 2311 2368* 2509* 4 4411 5358 5502 5687 6177 6891 6921 
7041 7212 8341 8519 9783 10285* 

RHCS3 = 002242 1874" 

RHDB 002170 1847# 2197 2242" 10361 

RHDST 002204 18564 3024 3180 3421 3524* 3581 3770* 3827 4008 4132 4287 4430 4599 


5006 5155 5382 5515 5700 5829 6239 6484 6635 6907 7038 7198 7501 


RHDS1 002222 18634 2385 2779 2810 2991 3010 3166 3270 3514 3669 3762 4107 4446 
4590 4708 4760 4800 5364 5508 5601 5693 5832 6191 6443 6898 7189 


7392 7506 7803 8314 8484 8950 9262 9410 9784 

RHDT 002224 18644 2369 2371 2375 2377 2380 2382 2407 2510 2512 2538 2545 2547 
2550 2552 2555 2557 2583 2585 

RHEC1 002230 18664 

RHEC2 002232 1867# 

RHER1 002202 18554 2314 4125 4439 4583 5340 5373 5484 5519 5669 5704 5813 5841 
6186 6454 6916 7203 7519 7816 8307 8498 8870 9785 

RHER2 002206 18574 

RHER3S 002214 18604 

RHLA 002236 18694 9882 

RHMR 002220 18624 8446 8509 

RHOF 002210 18584 8430" 9777" 10286* 

RHSN 002226 18654 2532 2582 2584 

RHWC 002172 18484 2753 2964 3000 3120 3156 3347 3411 3482 3566 3701 3812 3960 


3998 4069 4239 4277 4341 4381 4401 4535 4573 4730 4933 4996 5082 

6 6387 6429 6589 
6625 6818 6857 6870 6991 7033 7142 7442 7531 7744 7833 7903 7906 
8069 8137 8242* 8265* 8274+ 8283 8357 8407* 8435 8517 9735 10069 10153 


RH70 004640 2000 9 2132" 2221" 2223* 4377 6853 8208 

RH70CK 006056 21304 

RMR = 000004 16944 7523 7820 

RPTCTR 034014 9990# 10036 

RPTRP1 011514 2650 26664 

RPTRP2 011622 2695 2710# 

RPVEC 002166 16114 2075 2649 2694 2759* 2974* 3129" 3254" 3358% 3499" 3526" 3650" 5712s 


3773" 93971" 4080" 4250* 4352 4546 4689" 4742% 4944* 5093" 5323" 5467" 5579* 
5653* 5796 5955* 6132" 6398% 6599% 6757 6829% 7002" 7153* 7339# 7375" 74538 
7683* 7755* 7914* 8080"  8606* 8740* 8841* 8933 9008 9131" 9245" 9334" 95958 
9467* 10376 10383* 10394 10434* 

RPVECT 036534 2076 §=104284 10434 

RP06 004636 1998# 2508"  2515* 2875 2917 3077 5224 5263 5992 6036 6076 6208 6278 
6341 6461 9272 9522 9542 

RP4VEC 004506 1956# 2159" 2759 2974 3129 3254 3358 3526 3650 3773 3971 4080 4250 
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4352 
6398 
8606 
RIN 006546 2228 
RUN 035276 2922 
5063 
6799 
9109 
RUNCTR 004642 20034 
RUNWAT 027642 8453" 
SAVER 033462 2752 
5081 
7902 
SAVERE 004512 19648 
3961 
473) 
5382* 
5687* 
6388 
7044* 
7904 
8522" 
sc = 100000 16704 
8257 
$c1_ = 000100 17578 
$€10 = 001000 17604 
$c2__ = 000200 1758" 
$€20 = 002000 17614 
$C4 = =: 000400 1759" 
SEECOM 002352 19348 
SEEKCY 033264 3657 
SELECT 004626 19884 
SELTST 010126 2328 
SERCH 002334 1927# 
SILOSZ 004650 20084 
SKI = 040000 1826« 
SN 002310 1907# 
SND 1 006020 2084 
SRCH 033244 3714 
SRO = 177572 8198 
SR1 = (177574 8204 
SR2 = 177576 8214 
SR3 = 172516 822m 
$ST1 031354 9074s 
$ST2 031362 9077m 
$ST3 031402 9063* 
SST4 031422 9064* 
$ST5 031434 9065* 
STACK = 001000 6654 
4675 
8398 
START 004722 2024 
STKLMT= 177774 6768 
$122 024376 7293# 
ST22A 022774 66398 
$125 025154 7566 
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4546 4689 4742 4944 
6599 6757 6829 7002 
8740 8841 8933 9008 
22348 

2942 3082 3101 3328 
5270 5289 5438 5623 
6973 7124 7317 7423 
9312 9445 102798 

8453* 8456+ 

2963 3119 3346 3481 
5311 5455 5641 5784 
8068 8282 8434 9844" 
2754 2823 2965 3032 
4017 4070 4136* 4144 
4806* 4814 4934 5016 
5393 5457 5498*  5500* 
5689* 5700* 5710* 5719 
6481* 6484" 6491 6590 
7053 7143 7209* 72148 
7986 8070 8161 8284 
8529 9736* 10072* 10074* 
4120 4425 4608 4797 
8267 8276 8334 8479 
3661 5592 7383 9769 
5587 7371 97688 

2023* 2025* 2028" 2162 
2435m 

3475 3505 3694 3719 
2241* 2242 2243" 2247 
2584* 11146 

2118 

4722 9750" 

9084 9207 

9087# 9198* 

9098# 9199+ 

9107# 9200+ 

2040 2191 2267 2459 
4866 5211 5420 5564 
8559 8693 8911 9225 
2027 20328 

7576 

75730 


5826 
8637 


2435 


3726 
2251 


2642 
5749 


2473 


4750 
2252 


2687 
5902 


9590 


4769 
2254 


2735 
6706 


9752 


2864 
7098 


8504* 
7184 


3241 
7280 


8517+ 
7498 


3637 
7002 


8518* 
7800 


3910 
8028 


4188 
8200 
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$124 025226 7615# 8016 
$128 026242 8006 80134 
SwR 001140 8754 2038 2059* 2061 2067* 2123 2130 2206 2304 2326 0=6.'10157)~——- 10332 0458 
aes 10474 10480 10487 10687 10726 10781* 10947 10954 10959 10963 10989 1338 
® 
SWREG 000176 7814 2067 2123 10687 10726 10749 
swO = 000001 7298 
swOO = 000001 7194 729 
sw01 = 000002 7184 728 
SwO2 = 000004 7178 727 
$wO3 = 000010 7164 726 
$w04 = 000020 7154 725 
swOS = 000040 7144 724 
sw06 = 000100 7134 723. ~=10991 
$wO7 = 000200 7124 722 «=©10159 10334 
sw08 = 000400 7114 721 
swo9 = 001000 7104 720 
Swi = 000002 7288 
Sw10 = 002000 7094 
Swill = 004000 7084 
Swi2 = 010000 7074 =2130 
Swi3 = 020000 706# 2206 2304 2326 
Swi4 = 040000 7054 
SwiS = 100000 7044 
Sw2 = 000004 7278 
Sw3 = 000010 7264 
Sw4 = =_: 000020 7254 
Ssw5 = =: 000040 7248 
SWw6 = 000100 7234 
Sw7 = =: 000200 7224 
SWB = 000400 7214 
Sw9 = 001000 720 
TBITVE= 000014 7624 
TOF = 000040 1775@ 
TESTAD 034446 101934 
TIMCNT 034012 2656 2701 9922 9927 9989# 10007 10012 
TIME! 033514 9879" 
TIME2 033526 2159 98814 
TKVEC = 000060 769# 10664* 10665* 
TMPO 004652 ioe 3493" 3533 3755* 3756* 3779 7287* 7468 74718 7549 76108 7770 77738 
TMP 1 004654 20114 8568* 8666" 8702" 8803+ 
TMPG 004656 20124 
TMPS 004660 20138 34948 3524 3757* 3770 7288* 75738 7o11* 8013" 
™N = 000037 2459H 2460 2735#@ 8 2736 28648 2865 32418 3242 36378 ©3638 39108 3911 41888 
4189 4675#@ 46676 48664 4867 5211# 5212 54208 5421 556048 85565 57498 5750 | 
5902# 5903 6706" 6707 7098# 7099 7280#@ 7281 7602#@ 7603 80288 8029 82008 
8201 8398" 8399 8559" 8560 8693# 8694 B911# 8912 92258 9226 
TOTALA 004646 2007# 2319" 23218 
TPVEC = 000064 770# 
TRAPVE= 000034 768 2046" 2047* 20748 3736* 37508 3768+ | 
TRE = 040000 16694 4122 4427 4608 5828 6174 644% 6888 7186 8257 8267 8276 848) 
9046 9162 
TRK1 = 004000 1762@ | 
TRK10 = 040000 1765é@ 
TR«2 = 010000 17634 7 
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CZRJJD.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0279 
TRK20 = 100000 17568 

TRKG = 020000 17644 

TRP 006510 2220 22298 

TRIVEC= 000014 7638 

TSTINM 004504 1955#@ 2189" 2299* 2460" 2597+ 40* 2685* 2736 2865" 3242 3638" 3911" 4189¢ 


26 

5750" 5903" 6707" 7099" 7281" 7603" 8029" 8201* 
8399" 8560" 8694" 8912* 9226* 10201 12799 12802 12805 12807 12809 12811 12814 
12817 =12819 = 12822 of 12827 =12829 12831 = _:12834 


TST1 006222 2164 2175 21868 
TSTIO) 3=—«-_-«d01 1632 2707 27278 

TS$T11 012076 28634 

T8112 §©012752 32408 

T8113) =—-013732 36368 

TST14 014500 3909" 

TST15 015206 41878 

TS116 «©6016 736 46748 

TST17 016670 48654 

TST2 006714 22658 

TST20 017556 52108 

TST21 020136 54198 

TST22 020414 55634 

T8123 020752 57488 

T$124 021220 5901# 

TS125 023040 6705a@ 

TST26 «024014 7097" 

TST27 =6024342 72798 

TS13 006762 2273 22958 

TS130 4 §©025172 7575 76014 

TST31 026260 8015 80274 

TST52 026624 81998 

78133 027452 8210 8397" 

78134 030100 8558" 

T8135 030362 86924 

T8136 0 ©=—6.0031020 8777 8910" 

1S137 =—©.031632 9205 92248 

TST4 010142 2437 2455#@ 9599 9610 
TS1T40 032564 95734 

TSTS 011070 25954 

TST6 011422 2605 26374 

1T$17 011532 72663 2669 20824 
TuF = 000100 1776@ 

TYPDS = 104405 2390 2402 2418 9581 587 9597 9642 11193 «113178 
TYPE = 104401 2087 2091 2096 2104 2113 2166 2209 2224 2230 2306 


9128 9234 9331 9464 9576 10197 10203 10209 
10210 10214 10218 10225 10229 1 10355 10372 «10378 +=: 10384 += 10390 10396 += 10400 
10404 10408 10414 10420 10429 1 10606 10681 10693 10747 10748 10751 10762 
10772 10783 10802 10846 10849 1 10918 10920 10949 10957 10998 11006 11014 
11022 11030 «11038 =11046 »=«11054 11070 11078 11086 11094 11102 11110 11118 
11126 11136-11962 10952 11174 11179 11181 11196 -11265—-113138# 11360 

TYPERR 042132 10994 11151" 

TYPOC = 104402 2216 © 240B~=— 2533 «2539 «10202. 10208_:)=—:10354 = 10377 = 10389 »—:10395. 10413-10438 10750 
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CZRJJD.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0280 
11003 =11011 8 8 11027) 11035) 11043-11051 BF 11067 3911075 —-:11083 Ss -«11091 = s- 11099 
11107-11115 1123) «141310 «11139-11147 11160 1189) 113148 

TYPON = 104404 113164 

TYPOS = 104403 11315¢ 

UNIB = 000020 16314 

UNIT 004616 10983" 2172" = =2177* = =—2430* = 2.439% = 2.468 2499* 2502 2526 9580 9604 9609* 9788 

UNITS 004576 19804 2356 2360 2430 2480 9605 

UNITSL 004630 1989# = 2173* 2177 2439 

UNLOAD 002324 19234 

UNS = 040000 1706# 

UPE = 020000 16404 

US1 = 000001 16278 

uS2 = 000002 16284 

US4 = 000004 16294 

YWR = 000010 18228 

VARI 015570 2246* 2247" 2248% 2249 4382s 

VAR2 015600 2250" 2251% 2252* 2253 4386" 

VAR3 023336 2249" 68584 

VARG 023346 22535* 68624 

VARS 015622 2256* 43968 

VUF_ = 000002 18214 

vu30 = 010000 17824 

vv = 000100 16804 2780 2798 2814 3397 3722 4779 4982 5131 7952 8123 9806 9823 

WAITBT 033550 99024 9915" 9923 9928 10001* 10008 10013 12799 12802 

WAITPC 033544 9900# 9912" 9913" 9998* 9999* 12799 12802 

WAITRE 033546 99014 9914" 9923 9928 9932 9944 10000* 10008 10013 10017 10043 12799 12802 

WAITTM 033552 9880* 99034 9904* 9952 9962 12802 

WAIT.P 033554 9904m 

WAIT.T 034016 9993# 11325 

WAT = 104413 2778 2990 3145 3269 3377 3513 3540 3668 3761 3786 3988 4097 4267 
4369 4563 4707 4759 4962 5111 5339 5483 5600 5668 5812 5971 6148 
6414 6615 6773 6845 7018 7169 7356 7391 7477 7700 7779 7932 8103 
8297 8625 8759 8860 8949 9031 9147 9261 9355 9409 9488 11325¢ 

we 002254 1891# 2824 3033 3189 3431 3592 3843 4018 4145 4296 4459 4620 4815 
5017 5166 5394 5535 5720 5857 6246 6492 6644 6935 7054 7224 7541 
7843 7987 8162 8366 8530 10257 11002 12834 

WCE = 040000 16414 

wCF = 000040 16974 

wu = 000001 17708 

WLE = 004000 17034 

WRCHDT 002340 19294 

WRCHEK 002336 19288 


WRFROM 002570 1946# 2250 2882 2894 2928 2948 3006 3063 3068 3208 3285 3295 3303 


WRIDAT 002342 1930# 4335 4360 5450 5475 6811 6837 - 7737 7763 
WRIFOR 002344 19314 


CZRJJDO, RPOG/S/6 FCTINL CTRLR2 
CZRJID.P11 


c 

@ 

Cc 
hun 


SBDADR 


bad 
oO 
s 
~m 
nun 


SERRPC 


SERRTB 
SERRTY 
SERTIL 
SESCAP 
$FILLC 
SFILLS 
SGDADR 
$GDDAT 


$GET42 


L 
$LPADR 


004000 


001126 


001216 


040626 
001223 


037312 


001116 
001226 


001124 
033074 


001106 


28-MAR-79 08:52 


MACY11 30 
C 
7691 8427 
23548 
2127* 10740 
7550* 7852* 
2275* 2794+ 
7948* 7957* 
12807 12817 
10693 10862 
10618* 10625 
11321 
2035 2036 
888s 8894 
888s 889" 
887 
8948 895a 
10762 10862# 
108644 
108634 
388 2416 
10563 10571" 
9645 96514 
105674 
96478 
9640 9655# 
9643 9654" 
2349 2427 
9639 
10447 + =10476 
2052* 10478 
2234 109378 
10951* 10952* 
12819 12822 
11166 
10989# 
9586 9588+ 
2051* 10499* 
10611 10642 
10642 
2276* 2790+ 
7944* 79538 
11319 
10922a 
10491* 10492 
11346 =11365¢ 
10745* 10764 
10953* 10971 
10642 810853 
2053" 24578 


8597 


10869 
9 


9603 


10478 
10500* 


10953 
12825 


10950* 
10966 


8614 


96284 


10484* 
10505 


10971 
12827 


10971 
10968 


3389+ 
8124+ 


10504 
10869 


10923 
10255 


8731 


12811 
3402+ 
9932* 
2051 


8928 
8928 


898" 


10642 


10971 
10482* 
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8748 


12822 
3733* 
9944" 


893# 
893# 


899" 


10783 


10497* 


8999 9016 
12825 12827 
3747 47758 
10017* 10043* 
10862 10923 
10971 
12802 12805 
12834 

3748* 47718 
12805 12817 
10502 =10504 


9325 


4784+ 
10152* 


10957 


12807 


4780+ 


12819 


9342 

4978*  4987* 
10328* 12799 

10971 11152 

12809 12811 

4974" 4983« 
12822 


ee 
SEQ 0281 


51278 
12802 


11176 


12814 


5123¢ 


CZRJJDO, RPOG/5/6 FCTINL CTRLR2 


CZRJJO.P11 


SLPERR 


$SCOPE 
SSE TUP= 


$SS1_ = 
SSTUP = 
$SVLAD 
SSVPC 
$SSWR 


SSWRMK = 


STKINT 


001110 


000001 


042542 
0 


eeeere 


040502 


etenee | 
eeeree | 


043002 
036624 
000117 


000000 
177777 
037032 
000200 
167770 


000000 
001212 
001146 
037542 
037562 


28-MAR-79 08:52 
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113304 


8233+ 
10497 


10802 


11348* 


2042 
10721 


9084* 
10595 


112448 
10493 
9632¢ 


10846 


11349* 


2044 
10869 


9376¢ 
10959 


10862 


113674 


2046 
10938 


—? ot od od 
CoOOoONOo-OCOMmfrn 
a 


—MNO FF WOWOW-Ww 


— + 


10207 


112814 
9641 


10920 


2048 
10962 


10234¢ 


24428 


88918 


9654 


10923 


10482 


2444 
36220 
5412 
7578e 
8895 


10489 


10971 


2051 


10929 


963518 


10498* 


25878 


9209" 


10505 


2053 


10485* 


10504 


2120 


10492 


10965 


26298 
3900 
57398 
8021 
9563# 


9630 


10457 


SEQ 0282 
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10 


STKQEN= 037561 6504 10716 10827 
$ 037544 


TKQIN 106474 10662* 10663 10714" 10715* 10716 10718 

$TKQOU 037546 106484 10663* 10825 10826* 10827 10829* 

$1KQSR 037550 106494 10662 10718 10829 

$TKS 001144 877# 10645 10667* 10698* 10700 10706* 10728 10744* 10754 10766* 10786* 

STKSRV 037632 10664 10677# 

STMPO §=—.001176 8938 2364" 2365* 

STMP1 001200 8948 2204* 2656" 2657* 270i* 2702" 8215" 8218 8220* 8224 8228 8229" 8924+ 
9059* 9074" 9202 9277* 9280" 9368 9377* 9516 9518* 9527 9529 9533* 9534 
9535 9538 9547 9550 9554* 12809 

STMP2 001202 8954 

STMPS 001204 8964 

STMPG 001206 8978 

$TMPS =001210 8984 

SIN = 000041 6034 613 2163 2174 2180 2187# 2188 2259 22664 2272 2282 22968 2298 


$1PB 001152 BB0# 10631" 10642 

$TIPFLG 001157 B84" 10589 10642 

$TPS_ 001150 879# 10629 10642 

STRAP 042546 2046 =112908 

$TRAP2 042570 11301# 11312 

$TRP = 000014 11305# 11314 11515# 11316H 11517 11518¢ 11519 115208 11321 11322H 11523" 11524" 113250 

on 

STRPAD 042602 11295 11312 

$TSTNM 001102 857" 9589" 9630* 10447 10474 10496* 10501 10505 10946 10971 

$TTYIN 040610 10839 10840 10857 108614 

STYPBN= eeeeee U 11318 

$TYPDS 037076 10517# 11317 

$TYPE 037322 10589" 11305 11313 

STYPEC 037472 10610 10617 10624 10629" 10630 10788 

$TYPEX 037540 10635 10637 10640# 

$TYPOC 042344 112354 11314 

STYPON 042360 11234 11237# 11316 

$TYPOS 042320 11230# 11315 

SXTSTR 036636 104614 

$$GET4= 000000 9646# 

SOFILL 042543 11231* 11235" 11245 112808 

SGOCAT= eeeeee U 10458 10956 | 

. «= 062662 7750 =—«779H = 787-~—s78BHW = 790H = 7928 = 796" = B00H 47H BS4H 905. 1945# 19458 
19474 19648 1980# 2039 2053 2054  2099# 2103# 21078 2227# 2233# =2309# = 23358 
23398 © 2347H «246008 = 24068 «24128 2495# 2525" = 2564 = 2570 «576 614 «6 18H 26248 
9579" 9585" 9654 9658 10213# 10221# 102288 10375# 10387# 103938 10399# 10411# 10432e 
15504 10505 10571# 10642 10645 10649# 10650 10651# 10861# 10862 10869 10923 10971 
11001# 11009# 11073# 11081# 11089" 11097# 11105# 11113# 111378 11145# 11203# 11342 11366 
127978 12880# 


TRLR 

CZRJJO.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -=- MACRO NAMES SEQ 0284 

ALLREG 6474 10996 11905 11013 11021 11029 11037 11045 11053 11061 11069 11077 11085 11093 
11109) 19917) 1992500 «199330 (11141 

CHANGR 647# 2808 3098 3015 3164 3171 4105 4114 4123 4135 4387 4409 4418 4433 
S444 4581 4588 4602 4609 4791 4798 4805 5362 5371 5378 5506 5517 5524 
5702 5709 5820 5830 5839 5846 6166 6175 6189 6200 6432 6441 6480 6879 
6896 6910 6914 7178 7187 7201 7208 7485 7492 7504 7513 7517 7787 7794 
7810 7814 8305 8312 8321 8327 8338 8473 8482 8496 8503 8507 

CHECKD 6478 2970 3125 3249 3353 3500 3646 3708 3966 4075 4245 4347 4541 4684 
4939 5088 5318 5462 5574 5648 5791 5950 6127 6393 6594 6752 6824 6997 
7334 7365 7448 7678 7750 7909 8075 8289 8423 8601 8735 8837 8928 9003 


6 864 8774 8874 8884 9049 9165 9186 9509 
9826 9935 9937 9947 9956 9965 10021 10025 


F JHEAD 647# 2880 2891 3061 3283 3301 3548 3794 3919 4197 4483 4875 4897 5229 
5911 5997 6008 6041 6052 6283 6294 6539 6716 7299 7624 7642 8572 8706 


8491 
GETPRI lf 772e 
GETSWR if 6034 7720 


120 

135 3365 4553 
330 5474 5591 5659 5803 5962 6139 6405 6606 6764 6836 
460 7762 é 9138 


OAD 6474 
MSG 2180# 2182 22584 2261 22818 2284 24418 = 2444 2587# 2589 26284 2631 26758 2678 
2721 28494 2852 3222" =63225 36218 3624 3897# 3900 4173#@ 4175 46638 4666 48320 





CZRJJDO, RPOG/S/6 FCTNL CTRLR2 MACY11 githig 
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CZRJJD.P11 

52008 

7262 
92088 
MULT ia 
NEWTST la 
4664 

8672 
OFFST 6478 
POP la 
10558 

PUSH 1 
10517 

REPORT 1 
RFORGC 6478 
RHCLEA 6478 
‘ 4475 
6562 

8647 
SAVE 6478 
SAVTST 6478 
CH 6478 
SCOPE 6674 
4865 

8910 
SEEKCO 6474 
SETPRI 1 
SETTRA 11305¢ 
SETUP lf 
SKIP ls 
SLASH 14 
SPACE 772a 
SREGIS 6474 
5311 

8434 

STARS lf 
2259 

2636 

3622 

5227 

5995 

6693 

8557 

9563 

11207 
STARTT 6478 
6706 
SWRSU if 
T JUMP 6474 
TRMTRP 113505¢ 
TSCLR2 647 
TSCLR5 6474 
TTSTNO 6474 
6707 
TYPBIN lf 
TYPDEC ls 


TYPNAM 


54098 
7580 
95630 


11316 
2163 


25-MAY-79 


N 6 
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55500 
8021 


2174 


10236 


3241 
8028 


8777 


5242 
8029 


5553 
81888 


2272 


10444 


3637 
8200 


3638 
8201 


57388 
8191 


2436 


10507 


3910 
8398 


3911 
8399 


5741 
83878 


2629 
6693 


2604 


10574 


4188 
8559 


4189 
8560 


58758 
8390 


2662 


5 
10644 


4675 
8693 


4676 
8694 


5878 


85448 


2719 
7260 
10049 
9993 


3456 
5751 
7862 
9386 


2863 
7601 


11324 
2668 


6692e 
8547 


10077 


6695 
86714 


3223 
8019 


10109 
10094 


9 
10807 
5420 


5421 


7087# 
8674. 


, 


3622 
8189 


10164 . 


10132 


10831 
5564 


5565 


7089 
88908 


5898 


8388 


10262 


10252 


9 
10872 
5749 


5750 


SEQ 0285 


72598 
8893 


5903 
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TYPNUM la 7720 

TYPOCS la 772e 

TYPOCT la 772# = =—2532 2538 10749 

TYPTXT le" 772# = =©2086 2091 2096 2100 2104 2109 2113 2166 2209 2224 2230 2306 2331 
2336 340 2344 2397 2403 2409 2487 2492 2522 2528 2534 25 2566 2572 2607 
2611 2615 2621 9576 9582 10197 10203 10210 10214 10218 10225 10229 10348 10355 10571 
10378 10384 19390 10396 10400 10404 10408 10414 10419 10428 10998 11006 11014 11022 11030 
11038 11046 11054 11062 11070 11078 11086 11094 11102 11110 11118 11126 811134 = 11142 

VECSET 6478 2759 2974 3129 3254 3358 3526 3650 3773 3971 4080 425 4352 4546 4689 
4742 4944 5093 5323 5467 5579 5653 5796 5955 6132 6398 6599 6757 6829 7002 
Ary, ti aiae 7453 7683 7755 7914 8080 8606 8740 8841 8933 9008 9131 9245 

wT 6474 2777 2989 3144 3268 3376 3512 3539 3667 3760 3785 3987 4096 4266 4368 
4562 4706 4758 4961 5110 5338 5482 5599 5667 5811 5970 6147 6413 6614 6772 
6844 7017 7168 7355 7390 7476 7699 7778 7931 8102 8296 8624 8758 8859 8948 
9030 9146 9260 9354 9408 9487 

WIT 6478 2783 2995 3150 3274 3382 3518 3545 3673 3766 3791 3993 4102 4272 4374 
4568 4712 4764 4967 5116 5344 5488 5605 5673 5817 5976 6153 6419 6620 6778 
6850 7023 7174 7361 7396 7482 7705 7784 7937 8108 8302 8630 8764 8865 8954 
9036 9152 9266 9360 9414 9493 

SSCMRE 848" 887 888 889 890 891 892 

SSCMTM 8484 893 894 895 896 897 898 

SSESCA it 772m 

SSNEWT 1a 772# = =62180 2259 2282 2442 2587 2629 2676 2719 2850 3223 3622 3898 4173 


4664 4832 5201 5410 5551 5739 5876 6693 7087 7260 7578 8019 8189 8388 8545 
8672 8891 9209 9563 
S$SET 113054 11316 11315 11316 11317 11319 11321 11322 11323 «611324 3911325 


$$SKIP 1# = 7720 
.EQUAT 1# 6034 662 
HEADE 1# = 6034 
“KT11 lf = 603811 
SETUP 1# © 603# =. 2032 
.SWRHI 1# 6034 647 
-SWRLO ©6034 = 659" 
.$ACTI If = 6038 = 783 
SAPTB W 
$APTH 1) 
SAPTY ls 
SASTA 1) a 
$CATC 1# = 603H— 773 > 
SCMTA lf 603# = B48 
$DB2D ls 
.$0B20 1) 
Div le 
$EOP lf 6034 9620 
SERRO 1# = 6034 = 10923 
SERRT lf = 6034 
$MULT ls 
$POWE lf = 603# = 11326 
“ $RAND le 
$RDDE ls 
$RDOC 1# 6034 10870 
$READ If 6034 =10642 
$R2A7 ls 
$SAVE ls 
.$SB2D ls 
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CZRJJD.P11 28-MAR-79 08:52 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0287 
$SB20 la 

$SCOP ia 6034 10442 
-$SIZE i” 

SSUPR la 

STRAP la 6034 11282 
STYPB lf 

STYPD la 6034 10505 
STYPE la 6034 10572 
$TYPO ls 6034 11205 
$40CA la 

-1170 la 


- ABS. 062662 000 


ERRORS DETECTED: 0 


DSKZ:CZRJJD.BIN,DSKZ:CZRJJD.LST/CRF/SOL/NL: TOC :MD:MC:CND/LI:ME=CZRJJD.SML,CZRJJD.P11 
RUN-TIME: 103 142 7 SECONDS 
RUN-TIME RATIO: 562/254=2.2 
CORE USED: 37K (73 PAGES) 


